ソースを参照

Fixed Year bug

master
Shaun Kerr 6年前
コミット
5d13596b6f
1個のファイルの変更1行の追加1行の削除
  1. +1
    -1
      Main.hs

+ 1
- 1
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)


読み込み中…
キャンセル
保存