diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 07:04:41 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 07:04:41 +0000 |
| commit | 3630d4ad94e675214fd5e188aaf53974f0daa755 (patch) | |
| tree | 6b7d3d7fc8a109d0dd616f9127325e75bf79bbfa | |
| parent | 0ac80b191b1480dee22055adb46838df235e8163 (diff) | |
| download | sariulclocks-3630d4ad94e675214fd5e188aaf53974f0daa755.tar.gz | |
don't display time wasting clock if no current class session
| -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) |