blob: d36258ee208b1fb5e9c6a6e6dfb44708904ff9cc (
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
{-# LANGUAGE OverloadedStrings #-}
import Control.Monad (liftM, when)
import Control.Monad.SariulClocks
import Control.Monad.Trans (liftIO)
import Data.Classes
import Data.Maybe (fromJust)
import Text.PrettyPrint.Boxes
import Types.Classes
import Types.Scores
import Utils.ScoresFile
--- meaty functions
weeklyCron :: ScoresList -> ScoresList
weeklyCron scores = undefined
main :: IO ()
main = runSariulClocksIO $ do
scores <- readScoresFile
when (isJust scores) $ do
modifyScores weeklyCron
shouldModify <- liftM (((/=) scores) . Just) getScores
liftIO $ putStrLn "Scores before:\n"
liftIO $ putStrLn . ppScores $ fromJust scores
liftIO $ putStrLn "Scores after:\n"
scores' <- getScores
liftIO $ putStrLn . ppScores $ scores'
when shouldModify writeScoresFile
--- utility functions
ppScores :: ScoresList -> String
ppScores x = render $
hsep 3 center1 [ alignHoriz center2 7 "Class"
, alignHoriz center1 7 "Points"
, alignHoriz center1 12 "Time wasted"]
// "--------------------------------"
// foldr step nullBox x
where
step b bs = classBox b // bs
classBox :: (Class, Score) -> Box
classBox (c, (Score x y)) = hsep 3 left
[ alignHoriz center1 7 $ (text . show) c
, alignHoriz center1 7 $ (text . show) x
, alignHoriz center1 12 $ (text . show) y]
isJust :: Maybe a -> Bool
isJust (Just _) = True
isJust _ = False
|
