tA/p7
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed Year bug

Browse Source
This commit is contained in:
Shaun Kerr 2018-07-02 16:31:37 +12:00
parent 2611f8a8e2
commit 5d13596b6f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Main.hs
View File

@ -33,7 +33,7 @@ instance Yesod ProtocolSeven
getHomeR :: Handler Html getHomeR :: Handler Html
getHomeR = defaultLayout $ do getHomeR = defaultLayout $ do
-- Date / Time stuff -- 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 (year, month, day) = (\[a,b,c] -> (a,b,c)) $ map (\x -> read x :: Integer) $ words sTimeDate
let nextMonth = (month + 1) `mod` 12 let nextMonth = (month + 1) `mod` 12
let ts = toTS (year, month, day) let ts = toTS (year, month, day)