webapp: Better display of added files.

This commit is contained in:
Joey Hess 2013-07-10 15:37:40 -04:00
parent 8697976975
commit dba1e29949
6 changed files with 80 additions and 32 deletions

View file

@ -56,7 +56,7 @@ renderAlertHeader alert = renderTense (alertTense alert) <$> alertHeader alert
{- Renders an alert's message for display. -}
renderAlertMessage :: Alert -> Text
renderAlertMessage alert = renderTense (alertTense alert) $
(alertMessageRender alert) (alertData alert)
(alertMessageRender alert) alert
showAlert :: Alert -> String
showAlert alert = T.unpack $ T.unwords $ catMaybes