diff options
-rw-r--r-- | src/sariulclocks.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index 14debff..5b84eac 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -77,10 +77,13 @@ clocks = do +++ br +++ leftClockClock +++ leftClockButtons + currentClass <- liftM (currentClass) getSession let rightClock = (<<) clockColumn $ - (h1 << "Time wasting clock") +++ br - +++ (thediv ! [strAttr "class" "time-wasting-clock"] << noHtml) +++ br - +++ makeRightClockButtons + case currentClass of + Just _ -> (h1 << "Time wasting clock") +++ br + +++ (thediv ! [strAttr "class" "time-wasting-clock"] << noHtml) +++ br + +++ makeRightClockButtons + Nothing -> noHtml return $ thediv # "container" << thediv # "row" << (leftClock +++ rightClock) |