diff options
-rw-r--r-- | src/sariulclocks.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index b370541..06858a9 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -32,9 +32,10 @@ navBar = return $ , strAttr "aria-expanded" "false" , strAttr "role" "button" , strAttr "href" "#"] - << ("Play sound >") + << ("Play sound" +++ thespan # "caret" << noHtml) +++ ulist # "dropdown-menu" ! [strAttr "role" "menu"] - << li << anchor ! [strAttr "href" "#"] << "Klaxon") + << ((li << anchor ! [strAttr "href" "#"] << "Klaxon") + +++ (li << anchor ! [strAttr "href" "#"] << "Too noisy"))) makeClockToggle :: Clock -> Html makeClockToggle _ = bsButton "leftClockToggle" "btn btn-info" "Count up/down toggle" |