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

diff --git a/Rakka/Resource/Render.hs b/Rakka/Resource/Render.hs
index 3823cb4..fdb3d87 100644
--- a/Rakka/Resource/Render.hs
+++ b/Rakka/Resource/Render.hs
@@ -3,6 +3,7 @@ module Rakka.Resource.Render
     )
     where
 
+import qualified Codec.Binary.UTF8.String as UTF8
 import           Control.Arrow
 import           Control.Arrow.ArrowIO
 import           Control.Arrow.ArrowList
@@ -84,7 +85,7 @@ handleRender env name
                                      >>>
                                      writeDocumentToString [ (a_indent, v_1) ]
                                    )
-         output xmlStr
+         output $ UTF8.encodeString xmlStr
 
 
 render :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>