diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-18 21:34:44 +0000 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-20 04:27:12 +0000 |
commit | 1f97abb85f2ea08250180f7c3fe4e1b3df100697 (patch) | |
tree | 5bb00063a5020e022a85fae96b4b3d12aba8aad4 | |
parent | e6023ab14eb46fa74b2541d902b68eb273bf69d5 (diff) | |
download | sariulclocks-1f97abb85f2ea08250180f7c3fe4e1b3df100697.tar.gz |
hotkey hint for lucky number
-rw-r--r-- | src/sariulclocks.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index 137e1bd..c8979a2 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -52,7 +52,7 @@ lessonButtons Nothing = bsButton "start-lesson" "btn btn-info" "Start lesson" lessonButtons (Just _) = primHtml "<div class=\"form-group\"> <input id=\"class_points\" name=\"class_points\" type=\"text\" placeholder=\"Points scored\" class=\"form-control\"> </div> <div class=\"form-group\"> <input type=\"password\" id=\"teachers_password\" name=\"teachers_password\" placeholder=\"Teacher's password\" class=\"form-control\"> </div> " +++ input #= "class_time_wasted" ! [strAttr "name" "class_time_wasted", strAttr "type" "hidden", strAttr "value" ""] +++ bsButton "end-lesson" "btn btn-success" "End lesson" - +++ bsButton "lucky-number" "btn btn-danger" "Lucky number" + +++ bsButton "lucky-number" "btn btn-danger" ((underline << "L") +++ "ucky number") makeClockToggle :: Clock -> Html makeClockToggle _ = bsButton "leftClockToggle" "btn btn-info" "Count up/down toggle" @@ -164,7 +164,6 @@ cgiMain = do -- TODO: use POST,REDIRECT,GET https://stackoverflow.com/questions/570015/how-do-i-reload-a-page-without-a-postdata-warning-in-javascript/570069#570069 - -- TODO: restore time wasting clock if password was wrong let scores' = |