git.iko.soy/reflex-dom
on develop help sign in
Remove extra space after element tags.
65c6ae1Luigy Leon
src/Reflex/Dom/Builder/Static.hs+1−1
compare with develop
unifiedsplit
@@ -189,7 +189,7 @@ instance SupportsStaticDomBuilder t m => DomBuilder t (StaticDomBuilderT t m) wh
189 if Set.member elementTag voidElements
189 if Set.member elementTag voidElements
190 then modify $ (:) $ mconcat [constant ("<" <> byteString tagBS), attrs1, constant (byteString " />")]
190 then modify $ (:) $ mconcat [constant ("<" <> byteString tagBS), attrs1, constant (byteString " />")]
191 else do
191 else do
192− let open = mconcat [constant ("<" <> byteString tagBS <> " "), attrs1, constant (byteString ">")]
192+ let open = mconcat [constant ("<" <> byteString tagBS), attrs1, constant (byteString ">")]
193 let close = constant $ byteString $ "</" <> tagBS <> ">"
193 let close = constant $ byteString $ "</" <> tagBS <> ">"
194 modify $ (:) $ mconcat [open, innerHtml, close]
194 modify $ (:) $ mconcat [open, innerHtml, close]
195 return (Element es (), result)
195 return (Element es (), result)