module HelloWorld

import SSG.HTML

import Structures.Dependent.DList

helloWorld : Html "html"
helloWorld =
  Normal "html" ["lang" =$ "en"] [
    Normal "head" [] [
      RawText "title" [] "Example"
    ],
    Normal "body" [] [
      Normal "p" [] [Text "Hello World!"]
    ]
  ]

main : IO ()
main = putStr $ render helloWorld