aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Alert.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-24 11:27:30 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-24 11:27:30 -0400
commitfe272695f1ec414a0d71b842f564c950f0ec9cca (patch)
tree3d5d30c7ccaf7bbc78861442aa74ae3b07babe96 /Assistant/Alert.hs
parentcc045ca0e596ecdd05128e59e766a2ea04711c7c (diff)
only show latest warning, rather than combining warning alerts
In the case of the inotify limit warning, particularly, if it happens once it will be happening repeatedly, and so combining alerts resulted in a much too large alert message that took up a lot of memory and was too large for the webapp to display.
Diffstat (limited to 'Assistant/Alert.hs')
-rw-r--r--Assistant/Alert.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs
index 99e57e4b2..f412e6232 100644
--- a/Assistant/Alert.hs
+++ b/Assistant/Alert.hs
@@ -66,7 +66,7 @@ warningAlert name msg = Alert
, alertClosable = True
, alertPriority = High
, alertIcon = Just ErrorIcon
- , alertCombiner = Just $ dataCombiner (++)
+ , alertCombiner = Just $ dataCombiner $ \_old new -> new
, alertName = Just $ WarningAlert name
, alertButton = Nothing
}