blob: 6f5237bb8b5bb81f92cba6d34281278a9e3fd52b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{-# LANGUAGE TupleSections, OverloadedStrings #-}
module Handler.Home where
import Import
getHomeR :: Handler RepHtml
getHomeR = do
defaultLayout $ do
aDomId <- lift newIdent
setTitle "PFIF Contractor Portal"
$(widgetFile "homepage")
postHomeR :: Handler RepHtml
postHomeR = do
defaultLayout $ do
aDomId <- lift newIdent
setTitle "PFIF Contractor Portal"
$(widgetFile "homepage")
|
