hxt-9.0.0: examples/arrows/HelloWorld/Mini.hs

module Main
where

import Text.XML.HXT.Core

main	:: IO()
main
    = runX ( configSysVars [ withTrace 1 ]
	     >>>
	     readDocument    [ withValidate no ] "hello.xml"
	     >>>
	     writeDocument   [ ] "bye.xml"
	   )
      >> return ()