Funktionale Programmierung: Kopieren von XML-Dokumenten

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
               [] dst
           )
      return ()

Kopieren von XML-Dokumenten

copyXML

Ein Testlauf