2018-06-22 00:23:58 -04:00
|
|
|
module Main where
|
2018-06-21 22:24:42 -04:00
|
|
|
|
|
|
|
|
import System.Random
|
2018-06-21 23:58:20 -04:00
|
|
|
import Data.List
|
2018-06-22 00:10:26 -04:00
|
|
|
import Data.Maybe
|
2018-06-22 00:23:58 -04:00
|
|
|
import Data.Time.Clock
|
|
|
|
|
import Data.Time.Calendar
|
2018-06-21 22:24:42 -04:00
|
|
|
import Packs
|
2018-06-24 17:26:43 -04:00
|
|
|
import State
|
2018-06-21 22:24:42 -04:00
|
|
|
|
2018-06-21 23:58:20 -04:00
|
|
|
|
2018-06-22 00:23:58 -04:00
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
|
|
|
|
t <- getCurrentTime >>= return . toGregorian . utctDay
|
|
|
|
|
let ts = toTS t
|
|
|
|
|
let state = getCurrentRotation ts
|
|
|
|
|
let out = (printLegal state) ++ [""] ++ (printPreview $ getPreview ts state)
|
|
|
|
|
mapM_ putStrLn $ out
|
