main :: IO ()
-main = do let fpath = "examples/utf8.xml"
+main = do let fpath = "examples/dtd.xml"
[hsMod] <- runX ( setErrorMsgHandler False fail
>>>
constA fpath
>>>
readFromDocument [ (a_validate , v_0)
+ , (a_canonicalize , v_0)
, (a_check_namespaces, v_1)
]
>>>