blob: 34078d5d0909c04161499ad9ac8951d941d20c06 (
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 <- lift newIdent
setTitle "Welcome To Yesod!"
$(widgetFile "homepage")
|
