From 2bdd1707aaa0f7d5a8d2e630013bc7e7391588f4 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 17 Mar 2015 21:13:39 +0000 Subject: button for end of week --- src/sariulclocks.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src') 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" -- cgit v1.2.3