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/utf8.xml"
13 [hsMod] <- runX ( setErrorMsgHandler False fail
17 readFromDocument [ (a_validate , v_0)
18 , (a_check_namespaces, v_1)
21 ( constA (Module "Foo")
25 constA (HsIdent "foo")
32 Uio.putStrLn (prettyPrint hsMod)