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

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,