blob: 7fed6dd5dcb507b5fe6d159820d61cd887a2986e (
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 Html
getHomeR = do
people <- runDB $ selectList [] []
defaultLayout $ do
aDomId <- newIdent
setTitle "Welcome To Yesod!"
$(widgetFile "homepage")
|
