blob: 87b5e30221f934b4db780be6e447dd308778234f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
-- import Control.Monad.SariulClocks
import Utils.ScoresFile
import Types.Scores
import Types.Classes
import Control.Monad (liftM, when)
import Text.PrettyPrint.Boxes
scoresBox :: ScoresList -> Box
scoresBox = undefined
weeklyCron :: ScoresList -> ScoresList
weeklyCron scores = undefined
-- main :: IO ()
-- main = runSariulClocksIO $ do
-- scores <- readScoresFile
-- when (isJust scores) $ do
-- modifyScores weeklyCron
-- shouldModify <- liftM (((/=) scores) . Just) getScores
-- when shouldModify writeScoresFile
isJust :: Maybe a -> Bool
isJust (Just _) = True
isJust _ = False
|