X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FFastMutInt.lhs;h=2039ee5df942587863d8b7c944997dbb01d088c9;hb=e4fa0854318cde1a317727ab3d29edc0ca772e9d;hp=bdcf502f5260848eb30bb43d603a1fa741f76c41;hpb=25ad11473b8ba3d7596d83e95e2bee72af9790b1;p=ghc-hetmet.git

diff --git a/compiler/utils/FastMutInt.lhs b/compiler/utils/FastMutInt.lhs
index bdcf502..2039ee5 100644
--- a/compiler/utils/FastMutInt.lhs
+++ b/compiler/utils/FastMutInt.lhs
@@ -10,8 +10,6 @@ module FastMutInt(
 	readFastMutInt, writeFastMutInt
   ) where
 
-#include "HsVersions.h"
-
 #ifdef __GLASGOW_HASKELL__
 
 #include "MachDeps.h"
@@ -50,6 +48,10 @@ writeFastMutInt (FastMutInt arr) (I# i) = IO $ \s ->
   case writeIntArray# arr 0# i s of { s ->
   (# s, () #) }
 #else /* ! __GLASGOW_HASKELL__ */
+--maybe someday we could use
+--http://haskell.org/haskellwiki/Library/ArrayRef
+--which has an implementation of IOURefs
+--that is unboxed in GHC and just strict in all other compilers...
 newtype FastMutInt = FastMutInt (IORef Int)
 
 -- If any default value was chosen, it surely would be 0,