+main = do let fpath = "examples/tiny.xml"
+
+ [hsMod] <- runX ( setErrorMsgHandler False fail
+ >>>
+ constA fpath
+ >>>
+ readFromDocument [ (a_validate , v_0)
+ , (a_check_namespaces, v_1)
+ ]
+ >>>
+ ( constA (Module "Foo")
+ &&&
+ constA (HsIdent "foo")
+ &&&
+ compileDocument
+ )
+ >>>
+ wrapIntoModule
+ )
+ Uio.putStrLn (prettyPrint hsMod)