diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-20 05:41:35 +0000 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-20 05:41:35 +0000 |
| commit | 9694f172f649ce3e2b47397460a2624a68882e22 (patch) | |
| tree | 6a575aef26bd49bc1e0a23fb6000491e06bca5c5 /src | |
| parent | e50c2f005ede9ba244a418536d7673e8d3aefa0f (diff) | |
| download | sariulclocks-9694f172f649ce3e2b47397460a2624a68882e22.tar.gz | |
new sounds
Diffstat (limited to 'src')
| -rw-r--r-- | src/sariulclocks.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/sariulclocks.hs b/src/sariulclocks.hs index c8979a2..559b8a7 100644 --- a/src/sariulclocks.hs +++ b/src/sariulclocks.hs @@ -42,9 +42,14 @@ navBar = do +++ ulist # "dropdown-menu" ! [strAttr "role" "menu"] << ((li << anchor #= "klaxon" ! [strAttr "href" "#"] << "Klaxon") +++ (li << anchor #= "bell" ! [strAttr "href" "#"] << "Bell") + +++ (li # "divider" << noHtml) + +++ (li # "dropdown-header" << "Sean") +++ (li << anchor #= "one-two-three" ! [strAttr "href" "#"] << "One, two, three") +++ (li << anchor #= "too-noisy" ! [strAttr "href" "#"] << "Too noisy") - +++ (li << anchor #= "sit-down-quickly" ! [strAttr "href" "#"] << "Sit down quickly"))) + +++ (li << anchor #= "sit-down-quickly" ! [strAttr "href" "#"] << "Sit down quickly") + +++ (li # "divider" << noHtml) + +++ (li # "dropdown-header" << "은아") + +++ (li << anchor #= "why-so-noisy" ! [strAttr "href" "#"] << "Why are you so noisy?"))) lessonButtons :: Maybe Class -> Html lessonButtons Nothing = bsButton "start-lesson" "btn btn-info" "Start lesson" |