)
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 Data.Maybe
import Network.HTTP.Lucu
import Network.HTTP.Lucu.Utils
import OpenSSL.EVP.Base64
>>>
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) =>