enter months by number

2020-04-15 22:07:56 -04:00
parent 99baebe144
commit bce31d059b
9 changed files with 62 additions and 29 deletions
--- a/test/FormatSpec.hs
+++ b/test/FormatSpec.hs
@@ -141,9 +141,9 @@ labelTableSpec = describe "labelTable" $
      ]

    expected =
-      [ "   foo: bar"
+      [ "   foo: bar "
      , "   baz: quux"
-      , "longer: x"
+      , "longer: x   "
      ]

    in labelTable input `shouldBe` expected