started to write new executable for weekly score processing

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