diff options
author | Joey Hess <joey@kitenet.net> | 2012-12-13 00:24:19 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-12-13 00:24:19 -0400 |
commit | 94554782894ec6c26da3b46312d5d1d16d596458 (patch) | |
tree | 78746106bfb153945ccbfd2bbae536081c005e91 /Utility/Percentage.hs | |
parent | 55bd61d8c42aaf36a3c57f8444c493f6b045f4cd (diff) |
finished where indentation changes
Diffstat (limited to 'Utility/Percentage.hs')
-rw-r--r-- | Utility/Percentage.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Utility/Percentage.hs b/Utility/Percentage.hs index 309e00181..1c6b50062 100644 --- a/Utility/Percentage.hs +++ b/Utility/Percentage.hs @@ -28,11 +28,11 @@ showPercentage :: Int -> Percentage -> String showPercentage precision (Percentage p) | precision == 0 || remainder == 0 = go $ show int | otherwise = go $ show int ++ "." ++ strip0s (show remainder) - where - go v = v ++ "%" - int :: Integer - (int, frac) = properFraction (fromRational p) - remainder = floor (frac * multiplier) :: Integer - strip0s = reverse . dropWhile (== '0') . reverse - multiplier :: Float - multiplier = 10 ** (fromIntegral precision) + where + go v = v ++ "%" + int :: Integer + (int, frac) = properFraction (fromRational p) + remainder = floor (frac * multiplier) :: Integer + strip0s = reverse . dropWhile (== '0') . reverse + multiplier :: Float + multiplier = 10 ** (fromIntegral precision) |