diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index 99e57e4b29..f412e62321 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 }