From 1bd2be549f0736340b09cc056ce9d7c1db6b928c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 3 Aug 2012 20:10:32 -0400 Subject: add extra sidebar widget html is slightly broken --- Assistant/WebApp/SideBar.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'Assistant') 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 -- cgit v1.2.3