Funktionale Programmierung: Formatieren 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
               [(a_indent, v_1)] dst
           )
      return ()

Formatieren von XML-Dokumenten

indentXML

Ein Testlauf