)
where
-import qualified Codec.Binary.UTF8.String as UTF8
import Control.Arrow
import Control.Arrow.ArrowIO
import Control.Arrow.ArrowList
>>>
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) =>