diff options
Diffstat (limited to 'src/sariulccron.hs')
-rw-r--r-- | src/sariulccron.hs | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/src/sariulccron.hs b/src/sariulccron.hs index fdaf61c..87b5e30 100644 --- a/src/sariulccron.hs +++ b/src/sariulccron.hs @@ -1,19 +1,23 @@ -import Control.Monad.SariulClocks +-- 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 +-- 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 |