haskell/encoding
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix bang pattern warning

Browse Source 
Ignore-this: 25c92a74956ada02b849a5bdb56f78c1

darcs-hash:20100214211452-a4fee-22d79ad1175d6d8728b2c9ba438a44ff891aa69f
This commit is contained in:
Henning Guenther 2010-02-14 13:14:52 -08:00
parent 5b514a206a
commit 7b887abcb1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Data/Static.hs
View File

@ -35,7 +35,7 @@ instance StaticElement Char where
gen c = gen (fromIntegral (ord c)::Word32) gen c = gen (fromIntegral (ord c)::Word32)
instance StaticElement (Maybe Char) where 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 in if eqWord# v (int2Word# 4294967295#) -- -1 in Word32
then Nothing then Nothing
else (if (I# (word2Int# v)) > 0x10FFFF else (if (I# (word2Int# v)) > 0x10FFFF