Merge remote-tracking branch 'origin/master'
commit0fc92ed5a965a083d01689aca3a434dec80785c2
authorMichael Snoyman <michael@snoyman.com>
dateSun 29 Jan 2012, 07:36 (15 years ago)
parent23931d4a99ae6f
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