add extra sidebar widget

html is slightly broken

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
 	

templates/sidebar/main.hamlet

@@ -1,3 +1,4 @@
-<div .span3 ##{ident}>
-  <div .sidebar-nav>
+<div .span3>
+  ^{perpage}
+  <div .sidebar-nav ##{ident}>
     ^{content}