Commits

Bryan O'Sullivan  committed fbace38

Improve number parsing performance, surprinsgly enough

  • Participants
  • Parent commits 031bf02

Comments (0)

Files changed (1)

File 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