Merge pull request #38 from erikd/master
Fix the ghc-7.4 compile issue
commita99ae6f34b5d2156999bcd479af2b1405c5acafb
authorMichael Snoyman <michael@snoyman.com>
dateSat 28 Jan 2012, 13:08 (15 years ago)
parentaa48b54bd13b8c
warp/ReadInt.hs+1−1
@@ -34,7 +34,7 @@ data Table = Table !Addr#
3434
3535{- NOINLINE mhDigitToInt #-}
3636mhDigitToInt :: Char -> Int
37−mhDigitToInt (C# i) = I# (word2Int# $ indexWord8OffAddr# addr (ord# i))
37+mhDigitToInt (C# i) = I# (word2Int# (indexWord8OffAddr# addr (ord# i)))
3838 where
3939 !(Table addr) = table
4040 table :: Table