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