From 4190be6ba69cc0f2370d0ffee30ddb90146f794e Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Wed, 3 Jun 2009 22:57:55 +0000
Subject: Use a bang pattern on an unlifted binding

---
 src/Haddock/Utils/FastMutInt2.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Haddock/Utils')

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 ->
-- 
cgit v1.2.3