Funktionale Programmierung: HTML Seiten erzeugen

module Main
where
 
import Text.XML.HXT.Arrow
import System.Environment
 
main :: IO ()
main
    = do
      [dst] <- getArgs
      runX ( genDocument
             >>>
             writeDocument
               [(a_indent, v_1)] dst
           )
      return ()
genDocument     :: ArrowXml a => a b XmlTree
genDocument
    = root [] [helloWorld]
      >>>
      addXHtmlDoctypeTransitional
helloWorld      :: ArrowXml a => a b XmlTree
helloWorld
    = eelem "html"
      += ( eelem "head"
           += ( eelem "title"
                += txt "Hello World"
              )
         )
      += ( eelem "body"
           += sattr "class" "haskell"
           += ( eelem "h1"
                += txt "Hello World"
              )
         )
HTML Seiten erzeugen

helloWorld

Testlauf
