summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-06 16:04:09 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-06 16:04:09 -0400
commit41d9decf3e7c86740ae3727bc0145da0f4292926 (patch)
tree213b32723985aa1d1fa37ac607c15d3b4621f636 /Assistant
parentdffb5b9f92beeafdd6b5cc33b3ee0ab85a39fcf3 (diff)
use strict version of map
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/DaemonStatus.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/DaemonStatus.hs b/Assistant/DaemonStatus.hs
index ed73c210a..fc607767b 100644
--- a/Assistant/DaemonStatus.hs
+++ b/Assistant/DaemonStatus.hs
@@ -230,7 +230,7 @@ updateAlertMap a = notifyAlert `after` modifyDaemonStatus_ update
where
update s =
let !m = a (alertMap s)
- in s { alertMap = a (alertMap s) }
+ in s { alertMap = m }
{- Displays an alert while performing an activity that returns True on
- success.