Fix bang pattern warning

Ignore-this: 25c92a74956ada02b849a5bdb56f78c1 darcs-hash:20100214211452-a4fee-22d79ad1175d6d8728b2c9ba438a44ff891aa69f
2010-02-14 13:14:52 -08:00 · 2010-02-14 13:14:52 -08:00 · 7b887abcb1
commit 7b887abcb1
parent 5b514a206a
1 changed files with 1 additions and 1 deletions
--- a/Data/Static.hs
+++ b/Data/Static.hs
@ -35,7 +35,7 @@ instance StaticElement Char where
    gen c = gen (fromIntegral (ord c)::Word32)

 instance StaticElement (Maybe Char) where
-    extract addr i = let v = indexWord32OffAddr# addr i
+    extract addr i = let !v = indexWord32OffAddr# addr i
                     in if eqWord# v (int2Word# 4294967295#) -- -1 in Word32
                        then Nothing
                        else (if (I# (word2Int# v)) > 0x10FFFF