display icon for alerts with no header too
This commit is contained in:
parent
c6f3c410d4
commit
f75ac910c4
1 changed files with 11 additions and 14 deletions
|
@ -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}
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue