3 import Language.Haskell.Pretty
4 import Language.Haskell.Syntax
5 import Text.XML.HXT.Compilation
6 import Text.XML.HXT.Arrow
7 import qualified System.IO.UTF8 as Uio
11 main = do let fpath = "examples/dtd.xml"
13 [hsMod] <- runX ( setErrorMsgHandler False fail
17 readFromDocument [ (a_validate , v_0)
18 , (a_canonicalize , v_0)
19 , (a_check_namespaces, v_1)
22 ( constA (Module "Foo")
26 constA (HsIdent "foo")
33 Uio.putStrLn (prettyPrint hsMod)