diff options
| -rw-r--r-- | src/Haddock/Utils/FastMutInt2.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Utils/FastMutInt2.hs b/src/Haddock/Utils/FastMutInt2.hs index c47b514b..14273ac6 100644 --- a/src/Haddock/Utils/FastMutInt2.hs +++ b/src/Haddock/Utils/FastMutInt2.hs @@ -36,7 +36,7 @@ newFastMutInt :: IO FastMutInt newFastMutInt = IO $ \s0 -> case newByteArray# size s0 of { (# s, arr #) -> (# s, FastMutInt arr #) } - where I# size = SIZEOF_HSINT + where !(I# size) = SIZEOF_HSINT readFastMutInt :: FastMutInt -> IO Int readFastMutInt (FastMutInt arr) = IO $ \s0 -> |