{-# LANGUAGE TupleSections, OverloadedStrings #-} module Handler.Home where import Import getHomeR :: Handler RepHtml getHomeR = do people <- runDB $ selectList [] [] defaultLayout $ do aDomId <- lift newIdent setTitle "Welcome To Yesod!" $(widgetFile "homepage")