From 52897fa7f92c6c956a24a73202559d6a886e6411 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sat, 21 Mar 2015 22:13:02 +0900
Subject: fix monad modifyScores action

---
 src/Control/Monad/SariulClocks.hs | 6 +-----
 1 file changed, 1 insertion(+), 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 }
-- 
cgit v1.2.3