log alerts in notice mode, which is enabled by default

This commit is contained in:
Joey Hess 2013-01-15 14:34:39 -04:00
parent 85c8b222a0
commit b635d99f66
4 changed files with 27 additions and 17 deletions

View file

@ -187,7 +187,7 @@ notifyAlert = do
{- Returns the alert's identifier, which can be used to remove it. -}
addAlert :: Alert -> Assistant AlertId
addAlert alert = do
debug [showAlert alert]
notice [showAlert alert]
notifyAlert `after` modifyDaemonStatus add
where
add s = (s { lastAlertId = i, alertMap = m }, i)