mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

prune old filler alerts

Browse source
This commit is contained in:
Joey Hess 2012-07-30 12:21:53 -04:00
parent 40c9973675
commit 8d2667715b
3 changed files with 43 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Assistant/Threads/WebApp.hs
View file

@ -204,11 +204,12 @@ sideBarDisplay noScript = do
{- Any yesod message appears as the first alert. -}
maybe noop rendermessage =<< lift getMessage
{- Add newest 10 alerts to the sidebar. -}
{- Add newest alerts to the sidebar. -}
webapp <- lift getYesod
alertpairs <- M.toList . alertMap
<$> liftIO (getDaemonStatus $ daemonStatus webapp)
mapM_ renderalert $ take 10 $ sortAlertPairs alertpairs
mapM_ renderalert $
take displayAlerts $ reverse $ sortAlertPairs alertpairs
ident <- lift newIdent
$(widgetFile "sidebar")