mirror of
https://github.com/alpmestan/taggy.git
synced 2024-10-05 19:37:44 +03:00
Do not create close tags for br elements
This commit is contained in:
parent
1fd196fbb1
commit
425f36c531
@ -48,6 +48,9 @@ instance AsMarkup Element where
|
||||
where tag = toStatic eltName
|
||||
begin = toStatic $ "<" <> eltName
|
||||
end = toStatic $ "</" <> eltName <> ">"
|
||||
end = case eltName of
|
||||
"br" -> toStatic ""
|
||||
_ -> toStatic $ "</" <> eltName <> ">"
|
||||
kids = foldMap (toMarkup convertEntities) eltChildren
|
||||
|
||||
class Renderable a where
|
||||
|
Loading…
Reference in New Issue
Block a user