X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FFastMutInt.lhs;h=90b4b9e9e55a52bb4fbe915c25c2361cbbd88ce1;hp=bdcf502f5260848eb30bb43d603a1fa741f76c41;hb=d27302b92d741ae119bdf3cd52ba9dae251b6cf4;hpb=12ee8b3dcf37a2f6974167886e17ae2e03c9cd72

diff --git a/compiler/utils/FastMutInt.lhs b/compiler/utils/FastMutInt.lhs
index bdcf502..90b4b9e 100644
--- a/compiler/utils/FastMutInt.lhs
+++ b/compiler/utils/FastMutInt.lhs
@@ -50,6 +50,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,