-- | The HTML renderer.
{-# LANGUAGE QuasiQuotes #-}
module UUAGD.Html.Renderer where
import Text.Blaze.Html5 (Html)
import Text.Blaze.Html.Renderer.String (renderHtml)
import UUAGD.Heredoc
-- | Render the generated HTML as a HTML document.
render :: Html -> String
render html = let body = renderHtml html in [here|
Debugger