From 7b887abcb1713f419848a30d0573b6405423327f Mon Sep 17 00:00:00 2001 From: Henning Guenther Date: Sun, 14 Feb 2010 13:14:52 -0800 Subject: [PATCH] Fix bang pattern warning Ignore-this: 25c92a74956ada02b849a5bdb56f78c1 darcs-hash:20100214211452-a4fee-22d79ad1175d6d8728b2c9ba438a44ff891aa69f --- Data/Static.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Data/Static.hs b/Data/Static.hs index 4ebfdf4..c8ea1fc 100644 --- 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