Funktionale Programmierung: Parsen von HTML-Dokumenten

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

Parsen von HTML-Dokumenten

copyHTML

Ein Testlauf