diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 21:13:39 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 21:13:39 +0000 |
commit | 2bdd1707aaa0f7d5a8d2e630013bc7e7391588f4 (patch) | |
tree | 20c3e0e6ae0756fe9d6b7391a5c1395a05ebb08f | |
parent | 12a5b10a1989366b840d304cf185fe9bf3d8a5ee (diff) | |
download | sariulclocks-2bdd1707aaa0f7d5a8d2e630013bc7e7391588f4.tar.gz |
button for end of week
-rw-r--r-- | src/sariulclocks.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index 81afc2b..c661438 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -41,6 +41,7 @@ navBar = do lessonButtons :: Maybe Class -> Html lessonButtons Nothing = bsButton "start-lesson" "btn btn-info" "Start lesson" + +++ bsButton "end-of-week" "btn btn-info" "End of week" lessonButtons (Just _) = bsButton "end-lesson" "btn btn-info" "End lesson" +++ bsButton "lucky-number" "btn btn-danger" "Lucky number" |