diff options
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 |