Merge pull request #42 from paulbjarne/paulbjarne/fix-trailing-zeros

fix two digit trailing zeros < 0.10

Author: cryogenian

src/Data/Formatter/Number.purs

@@ -90,7 +90,9 @@ format ∷ Formatter → Number → String
 format (Formatter f) num =
   let
     absed = Math.abs num
-    tens = if absed > 0.0 then Int.floor $ Math.log absed / Math.ln10 else 0
+    tens = if absed > 0.0
+             then max (Int.floor $ Math.log absed / Math.ln10) 0
+             else 0
   in if f.abbreviations
      then
        let
@@ -118,6 +120,11 @@ format (Formatter f) num =
            let
              multiplier = Math.pow 10.0 $ Int.toNumber f.after
            in Int.round $ leftover * multiplier
+         roundedWithZeros =
+           let roundedString = show rounded
+               roundedLength = Str.length roundedString
+               zeros = repeat "0" (f.after - roundedLength)
+           in zeros <> roundedString
          shownNumber =
            if f.comma
              then
@@ -139,7 +146,7 @@ format (Formatter f) num =
               else
               "."
               <> (if rounded == 0 then repeat "0" f.after else "")
-              <> (if rounded > 0 then show rounded else ""))
+              <> (if rounded > 0 then roundedWithZeros else ""))
 
 
 unformat ∷ Formatter → String → Either String Number

test/src/Number.purs

@@ -28,7 +28,7 @@ numberTest = describe "Data.Formatter.Number" do
 
   forAll show
     "format (unformat n) = n"
-    [ "001.12"
+    [ "001.12", "001.02"
     ]
     (\n →  (format fmt1 <$> (unformat fmt1 n)) `shouldEqual` (Right n))