summaryrefslogtreecommitdiff
path: root/Handler/Home.hs
blob: 247e55edabf46a759c038ecb64e2a864b54d1119 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
{-# LANGUAGE TupleSections, OverloadedStrings #-}
module Handler.Home where

import Import

getHomeR :: Handler RepHtml
getHomeR = do
    people <- runDB $ selectList [] []
    defaultLayout $ do
        aDomId <- newIdent
        setTitle "Welcome To Yesod!"
        $(widgetFile "homepage")