diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 23:58:44 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 23:58:44 +0000 |
| commit | 8c6ee0a9d6e8034263ab41a4d65b6a060bd64dc6 (patch) | |
| tree | 746eee10c56791c5cce71ec04b124d8b7e766b32 | |
| parent | 848b343eaacd83fa840f341de1bd33f1ff3a432c (diff) | |
| download | sariulclocks-8c6ee0a9d6e8034263ab41a4d65b6a060bd64dc6.tar.gz | |
Revert "change page order when no class in session"
This reverts commit 12a5b10a1989366b840d304cf185fe9bf3d8a5ee.
| -rw-r--r-- | src/sariulclocks.hs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index c661438..3bc55a2 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -116,12 +116,7 @@ makePage = do theNavBar <- navBar theClocks <- clocks theRankings <- rankings - currentClass <- liftM (currentClass) getSession - let page = - case currentClass of - Just _ -> theNavBar +++ theClocks +++ theDate +++ theRankings - Nothing -> theNavBar +++ br +++ theRankings +++ theDate +++ theClocks - return page + return (theNavBar +++ theClocks +++ theDate +++ theRankings) cgiMain :: CGI CGIResult cgiMain = do @@ -150,9 +145,6 @@ cgiMain = do setCookie $ makeClassCookie clockTime newSession setCookie $ makeClockCookie clockTime newSession - -- debug - -- let html' = html +++ (paragraph << (show cookieClock)) +++ paragraph << (show $ makeClockCookie clockTime newSession) - output $ templateInject htmlTemplate html main = runCGI . handleErrors $ cgiMain |