diff options
-rw-r--r-- | src/Control/Monad/SariulClocks.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src/Control/Monad/SariulClocks.hs b/src/Control/Monad/SariulClocks.hs index d84bec3..3146d87 100644 --- a/src/Control/Monad/SariulClocks.hs +++ b/src/Control/Monad/SariulClocks.hs @@ -28,11 +28,7 @@ class ( Monad a putScores :: ScoresList -> a () getScores :: a ScoresList modifyScores :: (ScoresList -> ScoresList) -> a () - modifyScores f = do - scores <- getScores - let scores' = f scores - putScores scores - return () + modifyScores f = liftM f getScores >>= putScores newtype SariulClocksCGI a = SCC { getSCC :: StateT (Session, ScoresList) (CGIT IO) a } |