matebeamter/src/View/Auth.hs

13 lines
207 B
Haskell
Raw Normal View History

2019-09-08 00:37:50 +00:00
{-# 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"