diff options
Diffstat (limited to 'compiler/utils/Util.hs')
| -rw-r--r-- | compiler/utils/Util.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/utils/Util.hs b/compiler/utils/Util.hs index ff0f45f725..5bfde60f5f 100644 --- a/compiler/utils/Util.hs +++ b/compiler/utils/Util.hs @@ -1001,7 +1001,7 @@ readRational__ r = do readDec s = do (ds,r) <- nonnull isDigit s - return (foldl1 (\n d -> n * 10 + d) [ ord d - ord '0' | d <- ds ], + return (foldl1' (\n d -> n * 10 + d) [ ord d - ord '0' | d <- ds ], r) lexDecDigits = nonnull isDigit |