diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-03 20:10:32 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-03 20:10:32 -0400 |
| commit | 1bd2be549f0736340b09cc056ce9d7c1db6b928c (patch) | |
| tree | b8e94a37c0b9f269a8f978a7f7dbe5dca063dd4c | |
| parent | bbea7757ab6bab7b2993f99ab5ff2727b9f00fd3 (diff) | |
add extra sidebar widget
html is slightly broken
| -rw-r--r-- | Assistant/WebApp/SideBar.hs | 7 | ||||
| -rw-r--r-- | templates/sidebar/main.hamlet | 5 |
2 files changed, 6 insertions, 6 deletions
diff --git a/Assistant/WebApp/SideBar.hs b/Assistant/WebApp/SideBar.hs index e0c31c949..2fbd4e8c0 100644 --- a/Assistant/WebApp/SideBar.hs +++ b/Assistant/WebApp/SideBar.hs @@ -24,11 +24,10 @@ import Control.Concurrent sideBarDisplay :: Maybe Widget -> Widget sideBarDisplay onsidebar = do + {- If a widget was passed to include on the sidebar, display + - it above alerts. -} + let perpage = maybe noop id onsidebar let content = do - {- If a widget was passed to include on the sidebar, display - - it above alerts. -} - maybe noop id onsidebar - {- Any yesod message appears as the first alert. -} maybe noop rendermessage =<< lift getMessage diff --git a/templates/sidebar/main.hamlet b/templates/sidebar/main.hamlet index 32900b920..63f201cf1 100644 --- a/templates/sidebar/main.hamlet +++ b/templates/sidebar/main.hamlet @@ -1,3 +1,4 @@ -<div .span3 ##{ident}> - <div .sidebar-nav> +<div .span3> + ^{perpage} + <div .sidebar-nav ##{ident}> ^{content} |