From 5d13596b6fd7fcc2c7e24fd02dc427caf7948f97 Mon Sep 17 00:00:00 2001
From: Shaun Kerr <shaundavidkerr@gmail.com>
Date: Mon, 2 Jul 2018 16:31:37 +1200
Subject: [PATCH] Fixed Year bug

---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Main.hs b/Main.hs
index 83d0460..67be447 100644
--- a/Main.hs
+++ b/Main.hs
@@ -33,7 +33,7 @@ instance Yesod ProtocolSeven
 getHomeR :: Handler Html
 getHomeR = defaultLayout $ do
    -- Date / Time stuff
-   sTimeDate <- io $ getZonedTime >>= return . (formatTime defaultTimeLocale "%y %m %d")
+   sTimeDate <- io $ getZonedTime >>= return . (formatTime defaultTimeLocale "%Y %m %d")
    let (year, month, day) = (\[a,b,c] -> (a,b,c)) $ map (\x -> read x :: Integer) $ words sTimeDate
    let nextMonth = (month + 1) `mod` 12
    let ts = toTS (year, month, day)