Improve number parsing performance, surprinsgly enough
commita25ec6f7563d0a273ec7aaf88b1117afcb518434
authorBryan O'Sullivan <bos@serpentine.com>
dateWed 16 Feb 2011, 00:02 (16 years ago)
parent74f34d4
Data/Attoparsec/Char8.hs+3−3
@@ -457,7 +457,7 @@ floaty f = do
457457 else if power == 0
458458 then f real fraction (10 ^ fracDigits)
459459 else f real fraction (10 ^ fracDigits) * (10 ^^ power)
460− return $! if sign == plus
461− then n
462− else -n
460+ return $ if sign == plus
461+ then n
462+ else -n
463463