diff options
Diffstat (limited to 'compiler/main/Ar.hs')
| -rw-r--r-- | compiler/main/Ar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/Ar.hs b/compiler/main/Ar.hs index 9ead0535ad..814b71e248 100644 --- a/compiler/main/Ar.hs +++ b/compiler/main/Ar.hs @@ -261,7 +261,7 @@ fileInfo fp = go <$> POSIX.getFileStatus fp ) oct2dec :: Int -> Int -oct2dec = foldl (\a b -> a * 10 + b) 0 . reverse . dec 8 +oct2dec = foldl' (\a b -> a * 10 + b) 0 . reverse . dec 8 where dec _ 0 = [] dec b i = let (rest, last) = i `quotRem` b in last:dec b rest |