Funktionale Programmierung: Testausgabe des XML-Baum

module Main
where
 
import Text.XML.HXT.Arrow
import System.Environment
 
main :: IO ()
main
    = do
      [src, dst] <- getArgs
      runX ( readDocument
               [ (a_validate, v_0) ] src
             >>>
             writeDocument
               [ (a_show_tree, v_1)
               , (a_remove_whitespace, v_1)
               ] dst
           )
      return ()

Testausgabe des XML-Baum

treeXML

Ein Testlauf