{-# 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")