From d27302b92d741ae119bdf3cd52ba9dae251b6cf4 Mon Sep 17 00:00:00 2001 From: Isaac Dupree Date: Mon, 6 Aug 2007 21:19:14 +0000 Subject: [PATCH] comment FastMutInt possibilities --- compiler/utils/FastMutInt.lhs | 4 ++++ 1 file changed, 4 insertions(+) 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, -- 1.7.10.4