diff options
author | Joey Hess <joey@kitenet.net> | 2012-07-30 12:21:53 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-07-30 12:21:53 -0400 |
commit | 8d2667715b0508c538cf652e2dcfe2b8a47d1aff (patch) | |
tree | 440e4f66e153b0ba23a862902096f67dcd1a1cca /Assistant/DaemonStatus.hs | |
parent | 40c997367544d72c6ab55eb96a1c3344fcf4012c (diff) |
prune old filler alerts
Diffstat (limited to 'Assistant/DaemonStatus.hs')
-rw-r--r-- | Assistant/DaemonStatus.hs | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/Assistant/DaemonStatus.hs b/Assistant/DaemonStatus.hs index 6d05c6152..77387deb8 100644 --- a/Assistant/DaemonStatus.hs +++ b/Assistant/DaemonStatus.hs @@ -50,8 +50,6 @@ data DaemonStatus = DaemonStatus type TransferMap = M.Map Transfer TransferInfo -type AlertMap = M.Map AlertId Alert - {- This TMVar is never left empty, so accessing it will never block. -} type DaemonStatusHandle = TMVar DaemonStatus @@ -242,10 +240,5 @@ alertWhile dstatus alert a = do let alert' = alert { alertClass = Activity } i <- addAlert dstatus alert' r <- bracket_ noop noop a - updateAlertMap dstatus $ makeold i (makeAlertFiller r) + updateAlertMap dstatus $ convertToFiller i r return r - where - -- TODO prune old filler - makeold i filler m - | M.size m < 20 = M.adjust filler i m - | otherwise = M.adjust filler i m |