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