matebeamter/src/View/User.hs
2019-09-08 12:48:57 +02:00

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"