Resurrection from slight bitrot.

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

diff --git a/Rakka/Resource/Render.hs b/Rakka/Resource/Render.hs
index fdb3d87afca2428192ce49aef855f91e81538a84..18a7dc59487dd646621324dc74f4e433894e424d 100644 (file)
--- a/Rakka/Resource/Render.hs
+++ b/Rakka/Resource/Render.hs
@@ -3,13 +3,11 @@ module Rakka.Resource.Render
     )
     where
 
     )
     where
 

-import qualified Codec.Binary.UTF8.String as UTF8

 import           Control.Arrow
 import           Control.Arrow.ArrowIO
 import           Control.Arrow.ArrowList
 import           Control.Monad.Trans
 import qualified Data.ByteString.Lazy as Lazy
 import           Control.Arrow
 import           Control.Arrow.ArrowIO
 import           Control.Arrow.ArrowList
 import           Control.Monad.Trans
 import qualified Data.ByteString.Lazy as Lazy

-import           Data.Maybe

 import           Network.HTTP.Lucu
 import           Network.HTTP.Lucu.Utils
 import           OpenSSL.EVP.Base64
 import           Network.HTTP.Lucu
 import           Network.HTTP.Lucu.Utils
 import           OpenSSL.EVP.Base64


@@ -83,9 +81,11 @@ handleRender env name
                                      >>>
                                      render env
                                      >>>
                                      >>>
                                      render env
                                      >>>

-                                     writeDocumentToString [ (a_indent, v_1) ]
+                                     writeDocumentToString [ (a_indent         , v_1)
+                                                           , (a_output_encoding, utf8)
+                                                           , (a_no_xml_pi      , v_0) ]

                                    )
                                    )

-         output $ UTF8.encodeString xmlStr
+         output xmlStr

 
 
 render :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>
 
 
 render :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>