{-# LANGUAGE OverloadedStrings #-} module View.Auth where import qualified Text.Blaze.Html5 as H import Types type AuthPage = H.Html authPage :: AuthPage authPage = template initPage $ do H.p $ "Test"