From 12cdc96216e0c516ceeee922f9ca1568e9d4d592 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 23 Mar 2011 01:13:13 -0400 Subject: [PATCH] tweak --- DataUnits.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/DataUnits.hs b/DataUnits.hs index 3404e0ab18..329bf7e580 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)