mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use strict version of map

Browse source
This commit is contained in:
Joey Hess 2014-01-06 16:04:09 -04:00
parent e5b4d447b6
commit d356069f3e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Assistant/DaemonStatus.hs
View file

@ -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.