Main.hs

   1 module Main where
   2
   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
   8
   9
  10 main :: IO ()
  11 main = do let fpath = "examples/tiny.xml"
  12
  13           [hsMod] <- runX ( setErrorMsgHandler False fail
  14                             >>>
  15                             constA fpath
  16                             >>>
  17                             readFromDocument [ (a_validate        , v_0)
  18                                              , (a_check_namespaces, v_1)
  19                                              ]
  20                             >>>
  21                             ( constA (Module "Foo")
  22                               &&&
  23                               constA []
  24                               &&&
  25                               constA (HsIdent "foo")
  26                               &&&
  27                               compileDocument
  28                             )
  29                             >>>
  30                             wrapIntoModule
  31                           )
  32           Uio.putStrLn (prettyPrint hsMod)