diff options
| -rw-r--r-- | src/sariulccron.hs | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/src/sariulccron.hs b/src/sariulccron.hs new file mode 100644 index 0000000..fdaf61c --- /dev/null +++ b/src/sariulccron.hs @@ -0,0 +1,20 @@ +import Control.Monad.SariulClocks +import Utils.ScoresFile +import Types.Scores +import Types.Classes +import Control.Monad (liftM, when) + +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 |