Fix a pragma
commit6e1be787a65bd0971eed7d415a7ae6d1fb962430
authorMichael Snoyman <michael@snoyman.com>
dateWed 9 Jul 2014, 07:32 (12 years ago)
parent5c98dbb
warp/Network/Wai/Handler/Warp/ReadInt.hs+1−1
@@ -32,7 +32,7 @@ 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 readInt64 #-}
3636readInt64 :: ByteString -> Int64
3737readInt64 bs = S.foldl' (\ !i !c -> i * 10 + fromIntegral (mhDigitToInt c)) 0
3838 $ S.takeWhile isDigit bs