diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 09:25:44 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 09:25:55 +0000 |
commit | 0739483ad01661257cf01242bb206a0fddb9e620 (patch) | |
tree | a3dc19d5cb9c0e983d1f196ef6513d6bb99a5c56 | |
parent | 77676a507eb9ec9c2a62598579d3a82d244413a9 (diff) | |
download | sariulclocks-0739483ad01661257cf01242bb206a0fddb9e620.tar.gz |
rename variables for clarity
-rw-r--r-- | src/sariulclocks.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index 5a2481d..2b34ce3 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -118,11 +118,11 @@ cgiMain = do clockTime <- liftIO getClockTime - currentClock <- liftM (fromMaybe 0) $ readCookie "clock_cookie" - currentClass <- liftM (parseClassCookie) $ getCookie "class_cookie" - let session = Session { currentClass = currentClass + cookieClock <- liftM (fromMaybe 0) $ readCookie "clock_cookie" + cookieClass <- liftM (parseClassCookie) $ getCookie "class_cookie" + let session = Session { currentClass = cookieClass , currentClock = - case currentClock of + case cookieClock of 0 -> CountDownClock 1 -> CountUpClock} |