diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-04-26 19:25:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-26 19:25:05 -0400 |
| commit | c7999da69b039829acc3b7da8005224af5bf6ed8 (patch) | |
| tree | b17c7d897d95503f1af66efc98e28da1179d798c /Utility/HumanNumber.hs | |
| parent | a885d67e97c63d8fff657f6eb8d503fd91b0b42c (diff) | |
hlint
Diffstat (limited to 'Utility/HumanNumber.hs')
| -rw-r--r-- | Utility/HumanNumber.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/HumanNumber.hs b/Utility/HumanNumber.hs index 904135987..d5f647cd6 100644 --- a/Utility/HumanNumber.hs +++ b/Utility/HumanNumber.hs @@ -17,5 +17,5 @@ showImprecise precision n int :: Integer (int, frac) = properFraction n remainder = round (frac * 10 ^ precision) :: Integer - pad0s s = (take (precision - length s) (repeat '0')) ++ s + pad0s s = replicate (precision - length s) '0' ++ s striptrailing0s = reverse . dropWhile (== '0') . reverse |