diff options
Diffstat (limited to 'ghc/GHCi/UI/Monad.hs')
| -rw-r--r-- | ghc/GHCi/UI/Monad.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ghc/GHCi/UI/Monad.hs b/ghc/GHCi/UI/Monad.hs index b57a5a0a64..bb946cc7b1 100644 --- a/ghc/GHCi/UI/Monad.hs +++ b/ghc/GHCi/UI/Monad.hs @@ -46,6 +46,7 @@ import GHCi import GHCi.RemoteTypes import HsSyn (ImportDecl) import RdrName (RdrName) +import Util import Exception import Numeric @@ -396,8 +397,8 @@ printTimes dflags mallocs secs where separateThousands n = reverse . sep . reverse . show $ n where sep n' - | length n' <= 3 = n' - | otherwise = take 3 n' ++ "," ++ sep (drop 3 n') + | n' `lengthAtMost` 3 = n' + | otherwise = take 3 n' ++ "," ++ sep (drop 3 n') ----------------------------------------------------------------------------- -- reverting CAFs |