From 1f97abb85f2ea08250180f7c3fe4e1b3df100697 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Wed, 18 Mar 2015 21:34:44 +0000
Subject: hotkey hint for lucky number

---
 src/sariulclocks.hs | 3 +--
 1 file changed, 1 insertion(+), 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' =
-- 
cgit v1.2.3