diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 06:53:09 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-17 06:53:09 +0000 |
| commit | e99ebbfdc58c95591d3c201965780ab3c64c7af2 (patch) | |
| tree | 19ca3d50b1bcf65747699d0d0d2212543fa8400d | |
| parent | 0c73f0a8cd5d4c34b93c15ada9345d87ef0bc235 (diff) | |
| download | sariulclocks-e99ebbfdc58c95591d3c201965780ab3c64c7af2.tar.gz | |
fix sound dropdown
| -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" |