diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-06 16:04:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-06 16:04:09 -0400 |
| commit | 41d9decf3e7c86740ae3727bc0145da0f4292926 (patch) | |
| tree | 213b32723985aa1d1fa37ac607c15d3b4621f636 /Assistant/DaemonStatus.hs | |
| parent | dffb5b9f92beeafdd6b5cc33b3ee0ab85a39fcf3 (diff) | |
use strict version of map
Diffstat (limited to 'Assistant/DaemonStatus.hs')
| -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. |