aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Utils/FastMutInt2.hs
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2009-06-03 22:57:55 +0000
committerIan Lynagh <igloo@earth.li>2009-06-03 22:57:55 +0000
commit4190be6ba69cc0f2370d0ffee30ddb90146f794e (patch)
tree77041309932cce07728d52ccdf54820eb328c7c9 /src/Haddock/Utils/FastMutInt2.hs
parent2f757ce193579339b378f65ae342a5f97b214c39 (diff)
Use a bang pattern on an unlifted binding
Diffstat (limited to 'src/Haddock/Utils/FastMutInt2.hs')
-rw-r--r--src/Haddock/Utils/FastMutInt2.hs2
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 ->