Commits

Bryan O'Sullivan committed fbace38

Improve number parsing performance, surprinsgly enough

Comments (0)

Files changed (1)

Data/Attoparsec/Char8.hs

           else if power == 0
                then f real fraction (10 ^ fracDigits)
                else f real fraction (10 ^ fracDigits) * (10 ^^ power)
-  return $! if sign == plus
-            then n
-            else -n
+  return $ if sign == plus
+           then n
+           else -n