From 7825b27d262af7252b48e9179a5bbf86b0f30d22 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 10 Oct 2015 11:22:03 +0200
Subject: More readable birthdates in csv file

---
 src/Date.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Date.hs')

diff --git a/src/Date.hs b/src/Date.hs
index efbef8c..07f0672 100644
--- a/src/Date.hs
+++ b/src/Date.hs
@@ -20,8 +20,8 @@ getCurrentDate = do
   now <- getCurrentTime
   timezone <- getCurrentTimeZone
   let zoneNow = utcToLocalTime timezone now
-  let (year, month, day) = toGregorian $ localDay zoneNow
-  return $ Date (fromIntegral year) month day
+  let (y, m, d) = toGregorian $ localDay zoneNow
+  return $ Date (fromIntegral y) m d
 
 sameDayAndMonth :: Date -> Date -> Bool
 sameDayAndMonth (Date _ m1 d1) (Date _ m2 d2) = m1 == m2 && d1 == d2
-- 
cgit v1.2.3