- [xmlStr] <- liftIO $ runX ( setErrorMsgHandler False fail
- >>>
- constA (name, cType, bin)
- >>>
- render env
- >>>
- writeDocumentToString [ (a_indent , v_1)
- , (a_output_encoding, utf8)
- , (a_no_xml_pi , v_0) ]
- )
- output xmlStr
+ [xmlStr] ← liftIO $ runX ( setErrorMsgHandler False fail
+ ⋙
+ constA (name, cType, bin)
+ ⋙
+ render env
+ ⋙
+ writeDocumentToString [ withIndent yes
+ , withXmlPi yes
+ ]
+ )
+ output $ UTF8.encodeString xmlStr