diff options
author | 2014-01-06 16:04:09 -0400 | |
---|---|---|
committer | 2014-01-06 16:04:09 -0400 | |
commit | 41d9decf3e7c86740ae3727bc0145da0f4292926 (patch) | |
tree | 213b32723985aa1d1fa37ac607c15d3b4621f636 | |
parent | dffb5b9f92beeafdd6b5cc33b3ee0ab85a39fcf3 (diff) |
use strict version of map
-rw-r--r-- | Assistant/DaemonStatus.hs | 2 |
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. |