@@ -32,14 +32,14 @@ readInt bs = fromIntegral $ readInt64 bs
3232-- use Int64 here and then make a generic 'readInt' that allows conversion to
3333-- Int and Integer.
3434
35−{- NOINLINE readInt64MH #-}
35+{-# NOINLINE readInt64MH #-}
3636readInt64 :: ByteString -> Int64
3737readInt64 bs = S.foldl' (\ !i !c -> i * 10 + fromIntegral (mhDigitToInt c)) 0
3838 $ S.takeWhile isDigit bs
3939
4040data Table = Table !Addr#
4141
42−{- NOINLINE mhDigitToInt #-}
42+{-# NOINLINE mhDigitToInt #-}
4343mhDigitToInt :: Word8 -> Int
4444mhDigitToInt (W8# i) = I# (word2Int# (indexWord8OffAddr# addr (word2Int# i)))
4545 where