diff options
Diffstat (limited to 'src/sariulclocks.hs')
| -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" |