From e0c3958d9acc97c15a209c287c1d49e859ca4fea Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 3 Aug 2012 20:40:34 -0400 Subject: improved config --- Assistant/WebApp/SideBar.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'Assistant/WebApp/SideBar.hs') diff --git a/Assistant/WebApp/SideBar.hs b/Assistant/WebApp/SideBar.hs index 2fbd4e8c0..4373b5a5b 100644 --- a/Assistant/WebApp/SideBar.hs +++ b/Assistant/WebApp/SideBar.hs @@ -22,11 +22,8 @@ import Data.Text (Text) import qualified Data.Map as M 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 +sideBarDisplay :: Widget +sideBarDisplay = do let content = do {- Any yesod message appears as the first alert. -} maybe noop rendermessage =<< lift getMessage @@ -86,7 +83,7 @@ getSideBarR nid = do - to avoid slowing down user actions like closing alerts. -} liftIO $ threadDelay 100000 - page <- widgetToPageContent $ sideBarDisplay Nothing + page <- widgetToPageContent sideBarDisplay hamletToRepHtml $ [hamlet|^{pageBody page}|] {- Called by the client to close an alert. -} -- cgit v1.2.3