write alerts to log in debug mode
This commit is contained in:
parent
e15cca7db8
commit
85c8b222a0
2 changed files with 9 additions and 1 deletions
|
@ -186,7 +186,9 @@ notifyAlert = do
|
|||
|
||||
{- Returns the alert's identifier, which can be used to remove it. -}
|
||||
addAlert :: Alert -> Assistant AlertId
|
||||
addAlert alert = notifyAlert `after` modifyDaemonStatus add
|
||||
addAlert alert = do
|
||||
debug [showAlert alert]
|
||||
notifyAlert `after` modifyDaemonStatus add
|
||||
where
|
||||
add s = (s { lastAlertId = i, alertMap = m }, i)
|
||||
where
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue