Fixed breakage on newer HXT

[Rakka.git] / Rakka / Resource / TrackBack.hs

diff --git a/Rakka/Resource/TrackBack.hs b/Rakka/Resource/TrackBack.hs
index 145e307c555631af4da708504da1070285da14ea..45cf55c4f7379fbad2f84bbef3f661bd83f6396a 100644 (file)
--- a/Rakka/Resource/TrackBack.hs
+++ b/Rakka/Resource/TrackBack.hs
@@ -118,7 +118,7 @@ outputResponse res
                                      >>>
                                      writeDocumentToString [ (a_indent, v_1) ]
                                    )
-         output xmlStr
+         output $ UTF8.encodeString xmlStr
     where
       mkResponseTree :: ArrowXml a => a b XmlTree
       mkResponseTree