diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2007-08-06 21:19:14 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2007-08-06 21:19:14 +0000 |
| commit | d27302b92d741ae119bdf3cd52ba9dae251b6cf4 (patch) | |
| tree | bed65af0b4bdfd227e330a23399a3b5a827d8391 /compiler/utils/FastMutInt.lhs | |
| parent | 12ee8b3dcf37a2f6974167886e17ae2e03c9cd72 (diff) | |
| download | haskell-d27302b92d741ae119bdf3cd52ba9dae251b6cf4.tar.gz | |
comment FastMutInt possibilities
Diffstat (limited to 'compiler/utils/FastMutInt.lhs')
| -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, |