Skip to content

Instantly share code, notes, and snippets.

@kraftdorian

kraftdorian/html.hs

Last active August 13, 2025 19:19
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save kraftdorian/9ef8ef9537bd17c6043623c5b94d043d to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save kraftdorian/9ef8ef9537bd17c6043623c5b94d043d to your computer and use it in GitHub Desktop.
Download ZIP
playing around with HTML in Haskell
Raw
html.hs
import Text.XHtml
headerWithHeading :: Html
headerWithHeading = (tag "header" ! [theclass "header"]) . h1 << "Heading level 1"
main :: IO ()
main = putStrLn $ showHtml headerWithHeading
-- <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><header><h1>Heading level 1</h1></header></html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment