{-# LANGUAGE OverloadedStrings #-}
module Main where
import Lucid as L
import qualified Data.Text.Lazy.IO as T

main :: IO ()
main = T.putStrLn . renderText $ do
  htmlBody

htmlBody :: Html ()
htmlBody = do
  doctype_
  h2_ $ h2_ "hoeg"
  return ()
