diff options
| author | Ian Lynagh <igloo@earth.li> | 2009-06-03 22:57:55 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2009-06-03 22:57:55 +0000 |
| commit | 4190be6ba69cc0f2370d0ffee30ddb90146f794e (patch) | |
| tree | 77041309932cce07728d52ccdf54820eb328c7c9 | |
| parent | 2f757ce193579339b378f65ae342a5f97b214c39 (diff) | |
Use a bang pattern on an unlifted binding
| -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 -> |