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
$if block
<h4 .alert-heading>
$case alertIcon alert
$of Nothing
$of Just name
<i .icon-#{name}></i> #
$maybe name <- alertIcon alert
<i .icon-#{name}></i> #
#{h}
$else
$case alertIcon alert
$of Nothing
$of Just name
<i .icon-#{name}></i> #
$maybe name <- alertIcon alert
<i .icon-#{name}></i> #
<strong>#{h}</strong> #
$nothing
$maybe name <- alertIcon alert
<i .icon-#{name}></i> #
#{renderAlertMessage alert}
$case alertButton alert
$of Nothing
$of Just button
<br>
<a .btn .btn-primary href="@{ClickAlert aid}">
#{buttonLabel button}
$maybe button <- alertButton alert
<br>
<a .btn .btn-primary href="@{ClickAlert aid}">
#{buttonLabel button}