don't close tags that are closed by hamlet
This commit is contained in:
parent
ce0ecbeefc
commit
ccc8afb59d
36 changed files with 144 additions and 82 deletions
|
@ -27,11 +27,12 @@ import qualified Data.Map as M
|
|||
gpgKeyDisplay :: KeyId -> Maybe UserId -> Widget
|
||||
gpgKeyDisplay keyid userid = [whamlet|
|
||||
<span title="key id #{keyid}">
|
||||
<span .glyphicon .glyphicon-user></span> #
|
||||
$maybe name <- userid
|
||||
#{name}
|
||||
$nothing
|
||||
key id #{keyid}
|
||||
<span .glyphicon .glyphicon-user>
|
||||
\
|
||||
$maybe name <- userid
|
||||
#{name}
|
||||
$nothing
|
||||
key id #{keyid}
|
||||
|]
|
||||
|
||||
genKeyModal :: Widget
|
||||
|
|
|
@ -106,4 +106,4 @@ htmlIcon UpgradeIcon = bootstrapIcon "arrow-up"
|
|||
htmlIcon ConnectionIcon = bootstrapIcon "signal"
|
||||
|
||||
bootstrapIcon :: Text -> Widget
|
||||
bootstrapIcon name = [whamlet|<span .glyphicon .glyphicon-#{name}></span>|]
|
||||
bootstrapIcon name = [whamlet|<span .glyphicon .glyphicon-#{name}>|]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue