display icon for alerts with no header too

This commit is contained in:
Joey Hess 2012-09-09 14:59:46 -04:00
parent c6f3c410d4
commit f75ac910c4

View file

@ -4,21 +4,18 @@
$maybe h <- renderAlertHeader alert $maybe h <- renderAlertHeader alert
$if block $if block
<h4 .alert-heading> <h4 .alert-heading>
$case alertIcon alert $maybe name <- alertIcon alert
$of Nothing <i .icon-#{name}></i> #
$of Just name
<i .icon-#{name}></i> #
#{h} #{h}
$else $else
$case alertIcon alert $maybe name <- alertIcon alert
$of Nothing <i .icon-#{name}></i> #
$of Just name
<i .icon-#{name}></i> #
<strong>#{h}</strong> # <strong>#{h}</strong> #
$nothing
$maybe name <- alertIcon alert
<i .icon-#{name}></i> #
#{renderAlertMessage alert} #{renderAlertMessage alert}
$case alertButton alert $maybe button <- alertButton alert
$of Nothing <br>
$of Just button <a .btn .btn-primary href="@{ClickAlert aid}">
<br> #{buttonLabel button}
<a .btn .btn-primary href="@{ClickAlert aid}">
#{buttonLabel button}