From 62597317839c7945bfbc4b7a00f55d2db6459ab6 Mon Sep 17 00:00:00 2001 From: Clint Adams Date: Fri, 24 Apr 2015 12:53:02 -0400 Subject: Finally put pfifcontractors into git --- Handler/Home.hs | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 Handler/Home.hs (limited to 'Handler/Home.hs') diff --git a/Handler/Home.hs b/Handler/Home.hs new file mode 100644 index 0000000..6f5237b --- /dev/null +++ b/Handler/Home.hs @@ -0,0 +1,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") -- cgit v1.2.3