From 9377195dc58b506bfc2018ffb638d75594c6b39d Mon Sep 17 00:00:00 2001
From: Valtteri Pajunen <valtteri.pajunen@ksfmedia.fi>
Date: Thu, 6 May 2021 13:22:17 +0300
Subject: [PATCH 1/2] Add formatter for one to two digit months

---
 src/Data/Formatter/DateTime.purs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/Data/Formatter/DateTime.purs b/src/Data/Formatter/DateTime.purs
index a096a0b..bf55be9 100644
--- a/src/Data/Formatter/DateTime.purs
+++ b/src/Data/Formatter/DateTime.purs
@@ -53,6 +53,7 @@ data FormatterCommand
   | YearAbsolute
   | MonthFull
   | MonthShort
+  | MonthDigit
   | MonthTwoDigits
   | DayOfMonthTwoDigits
   | DayOfMonth
@@ -87,6 +88,7 @@ printFormatterCommand = case _ of
   YearAbsolute → "Y"
   MonthFull → "MMMM"
   MonthShort → "MMM"
+  MonthDigit → "M"
   MonthTwoDigits → "MM"
   DayOfMonthTwoDigits → "DD"
   DayOfMonth → "D"
@@ -127,6 +129,7 @@ formatterCommandParser = (PC.try <<< PS.string) `oneOfAs`
   , Tuple "MMMM" MonthFull
   , Tuple "MMM" MonthShort
   , Tuple "MM" MonthTwoDigits
+  , Tuple "M" MonthDigit
   , Tuple "DD" DayOfMonthTwoDigits
   , Tuple "D" DayOfMonth
   , Tuple "E" DayOfWeek
@@ -170,6 +173,7 @@ formatCommand dt@(DT.DateTime d t) = case _ of
   YearAbsolute → show $ fromEnum $ D.year d
   MonthFull → show $ D.month d
   MonthShort → printShortMonth $ D.month d
+  MonthDigit -> show $ fromEnum $ D.month d
   MonthTwoDigits → padSingleDigit $ fromEnum $ D.month d
   DayOfMonthTwoDigits → padSingleDigit $ fromEnum $ D.day d
   DayOfMonth → show $ fromEnum $ D.day d
@@ -351,6 +355,8 @@ unformatCommandParser = case _ of
     (fromEnum <$> parseMonth)
   MonthShort → _{month = _} `modifyWithParser`
     (fromEnum <$> parseShortMonth)
+  MonthDigit →  _{month = _} `modifyWithParser`
+    (parseInt 2 (validateRange 1 12) "Incorrect month digit")
   MonthTwoDigits → _{month = _} `modifyWithParser`
     (parseInt 2 (validateRange 1 12 <> exactLength) "Incorrect 2-digit month")
   DayOfMonthTwoDigits → _{day = _} `modifyWithParser`

From 2d71f1cfd715f502ec2b29ce9466d7286e9e6f2c Mon Sep 17 00:00:00 2001
From: Valtteri Pajunen <valtteri.pajunen@ksfmedia.fi>
Date: Thu, 6 May 2021 13:42:17 +0300
Subject: [PATCH 2/2] Add single-digit month change to unreleased

---
 CHANGELOG.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index d5c0d32..2a26553 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -11,6 +11,7 @@ New features:
 Bugfixes:
 
 Other improvements:
+- Added support for single-digit months [#69](https://github.com/purescript-contrib/purescript-formatters/pull/69) (@vapaj)
 
 ## [v5.0.0](https://github.com/purescript-contrib/purescript-formatters/releases/tag/v5.0.0) - 2021-02-26