diff options
Diffstat (limited to 'DataUnits.hs')
| -rw-r--r-- | DataUnits.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/DataUnits.hs b/DataUnits.hs index 3404e0ab1..329bf7e58 100644 --- a/DataUnits.hs +++ b/DataUnits.hs @@ -54,9 +54,8 @@ roughSize short i at n = 1000^n chop :: Integer -> Integer - chop d = round ((fromInteger i :: Double) / fromInteger (at d)) + chop d = round $ (fromInteger i :: Double) / fromInteger (at d) - units :: Integer -> String -> String -> String units d u u' = let num = chop d in show num ++ " " ++ (if short then u' else plural num u) |