diff options
Diffstat (limited to 'src/Date.hs')
| -rw-r--r-- | src/Date.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |