diff options
| -rw-r--r-- | compiler/utils/FastMutInt.lhs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/utils/FastMutInt.lhs b/compiler/utils/FastMutInt.lhs index bdcf502f52..90b4b9e9e5 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, |