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
|
@ -120,6 +120,12 @@ renderAlertMessage :: Alert -> Text
|
|||
renderAlertMessage alert = renderTense (alertTense alert) $
|
||||
(alertMessageRender alert) (alertData alert)
|
||||
|
||||
showAlert :: Alert -> String
|
||||
showAlert alert = T.unpack $ T.unwords $ catMaybes
|
||||
[ renderAlertHeader alert
|
||||
, Just $ renderAlertMessage alert
|
||||
]
|
||||
|
||||
alertTense :: Alert -> Tense
|
||||
alertTense alert
|
||||
| alertClass alert == Activity = Present
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue