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