diff --git a/src/Text/XmlHtml/XML/Render.hs b/src/Text/XmlHtml/XML/Render.hs
--- a/src/Text/XmlHtml/XML/Render.hs
+++ b/src/Text/XmlHtml/XML/Render.hs
@@ -39,7 +39,7 @@
`mappend` fromText e tag
`mappend` externalID e ext
`mappend` internalSubset e int
- `mappend` fromText e ">"
+ `mappend` fromText e ">\n"
------------------------------------------------------------------------------
diff --git a/test/suite/Text/XmlHtml/Tests.hs b/test/suite/Text/XmlHtml/Tests.hs
--- a/test/suite/Text/XmlHtml/Tests.hs
+++ b/test/suite/Text/XmlHtml/Tests.hs
@@ -562,14 +562,14 @@
toByteString (render (XmlDocument UTF8
(Just (DocType "html" (System "test\'ing") NoInternalSubset))
[]))
- == utf8Decl `B.append` ""
+ == utf8Decl `B.append` "\n"
doubleQuoteInSysID :: Bool
doubleQuoteInSysID =
toByteString (render (XmlDocument UTF8
(Just (DocType "html" (System "test\"ing") NoInternalSubset))
[]))
- == utf8Decl `B.append` ""
+ == utf8Decl `B.append` "\n"
bothQuotesInSysID :: Bool
bothQuotesInSysID = isBottom $
@@ -653,14 +653,14 @@
toByteString (render (HtmlDocument UTF8
(Just (DocType "html" (System "test\'ing") NoInternalSubset))
[]))
- == ""
+ == "\n"
hDoubleQuoteInSysID :: Bool
hDoubleQuoteInSysID =
toByteString (render (HtmlDocument UTF8
(Just (DocType "html" (System "test\"ing") NoInternalSubset))
[]))
- == ""
+ == "\n"
hBothQuotesInSysID :: Bool
hBothQuotesInSysID = isBottom $
diff --git a/xmlhtml.cabal b/xmlhtml.cabal
--- a/xmlhtml.cabal
+++ b/xmlhtml.cabal
@@ -1,5 +1,5 @@
Name: xmlhtml
-Version: 0.1.5
+Version: 0.1.5.1
Synopsis: XML parser and renderer with HTML 5 quirks mode
Description: Contains renderers and parsers for both XML and HTML 5
document fragments, which share data structures wo that