Funktionale Programmierung: Extrahieren aller Textteile

module Main
where
 
import Text.XML.HXT.Arrow
import System.Environment
 
main :: IO ()
main
    = do
      [src, dst, showTree] <- getArgs
      runX ( readDocument
               [ (a_parse_html, v_1)
               , (a_issue_warnings, v_0)
               ] src
             >>>
             processChildren
               ( processDocumentRootElement
                 `when`
                 isElem
               )
             >>>
             writeDocument
               [ (a_indent, v_1)
               , (a_show_tree, showTree)
               ] dst
           )
      return ()
processDocumentRootElement      :: ArrowXml a => a XmlTree XmlTree
processDocumentRootElement
    = eelem "the-plain-text"
      += deep isText

ghc -e ":main haskell.org - 0" selectAllText.hs

ghc -e ":main haskell.org - 1" selectAllText.hs

Extrahieren aller Textteile

selectAllText

1. Testlauf

2. Testlauf