X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Rakka%2FResource.hs;fp=Rakka%2FResource.hs;h=0333d6f53068d9daff76eadb5eb4fa56d0e105f5;hb=706ee842873fdceb9465cdf6a583176ab855fae2;hp=c207744da2ab0f4b673c8d3cd5e5354faaaf5f02;hpb=a4b849476ee3a204ea91dee8f3fd235b0b33a10a;p=Rakka.git

diff --git a/Rakka/Resource.hs b/Rakka/Resource.hs
index c207744..0333d6f 100644
--- 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)