Fix misssing indend in html void tag generation

This commit is contained in:
Nathan McCarty 2025-02-21 05:42:04 -05:00
parent d1e1dd5f59
commit c11bf35cc8

View file

@ -63,8 +63,8 @@ namespace Html
if length attributes > 0
then
let attrs = joinBy " " $ map toString attributes
in "<\{type} \{attrs} />"
else "<\{type} />"
in "\{indent}<\{type} \{attrs} />"
else "\{indent}<\{type} />"
viewIndented indent_level (Normal type attributes {content_types} contents) =
let indent = replicate (indent_level * 2) ' ' in
-- Special handling if the tag contains exactly one `Text` element, we won't