)
where
+import qualified Codec.Binary.UTF8.String as UTF8
import Control.Arrow
import Control.Arrow.ArrowIO
import Control.Arrow.ArrowList
>>>
writeDocumentToString [ (a_indent, v_1) ]
)
- output xmlStr
+ output $ UTF8.encodeString xmlStr
render :: (ArrowXml a, ArrowChoice a, ArrowIO a) =>