13 lines
207 B
Haskell
13 lines
207 B
Haskell
|
{-# 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"
|