warp/ReadInt.hs : Fix compile problem with ghc-7.4.
commitbd13b8c05647c22c9c0d3e00551ac4d4d3dc8c7f
authorErik de Castro Lopo <erikd@mega-nerd.com>
dateSun 29 Jan 2012, 07:37 (15 years ago)
parentb8593f4
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