From 41b18c22bacdc828470e4f4efb5aecfe617c2ed4 Mon Sep 17 00:00:00 2001
From: Koray Al <koray.al@soostone.com.tr>
Date: Thu, 23 Mar 2017 19:18:39 +0300
Subject: [PATCH] Zero-pad day fields in DayOfMonthTwoDigits

---
 src/Data/Formatter/DateTime.purs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/Formatter/DateTime.purs b/src/Data/Formatter/DateTime.purs
index 9de0261..61e7ada 100644
--- a/src/Data/Formatter/DateTime.purs
+++ b/src/Data/Formatter/DateTime.purs
@@ -185,7 +185,7 @@ formatF cb dt@(DT.DateTime d t) = case _ of
     let month = fromEnum $ D.month d
     in (padSingleDigit month) <> cb a
   DayOfMonthTwoDigits a →
-    show (fromEnum $ D.day d) <> cb a
+    (padSingleDigit $ fromEnum $ D.day d) <> cb a
   DayOfMonth a →
     show (fromEnum $ D.day d) <> cb a
   UnixTimestamp a →