Fixed breakage on newer HXT

[Rakka.git] / Rakka / Resource.hs

diff --git a/Rakka/Resource.hs b/Rakka/Resource.hs
index c207744da2ab0f4b673c8d3cd5e5354faaaf5f02..0333d6f53068d9daff76eadb5eb4fa56d0e105f5 100644 (file)
--- a/Rakka/Resource.hs
+++ b/Rakka/Resource.hs
@@ -164,7 +164,7 @@ outputXmlPage tree formatters
                                         >>>
                                         writeDocumentToString [ (a_indent, v_1) ]
                                       )
-         output resultStr
+         output $ UTF8.encodeString resultStr
 
 
 outputXmlPage' :: XmlTree -> IOSArrow XmlTree XmlTree -> Resource ()
@@ -181,7 +181,7 @@ outputXml tree
                                     >>>
                                     writeDocumentToString [ (a_indent, v_1) ]
                                   )
-        output xmlStr
+        output $ UTF8.encodeString xmlStr
 
 
 getUserID :: Environment -> Resource (Maybe String)