23 lines
773 B
Plaintext
23 lines
773 B
Plaintext
{-# LANGUAGE TemplateHaskell, OverloadedStrings #-}
|
|
module Handler.Root where
|
|
|
|
import ~sitearg~
|
|
|
|
-- This is a handler function for the GET request method on the RootR
|
|
-- resource pattern. All of your resource patterns are defined in
|
|
-- ~sitearg~.hs; look for the line beginning with mkYesodData.
|
|
--
|
|
-- The majority of the code you will write in Yesod lives in these handler
|
|
-- functions. You can spread them across multiple files if you are so
|
|
-- inclined, or create a single monolithic file.
|
|
getRootR :: Handler RepHtml
|
|
getRootR = do
|
|
mu <- maybeAuth
|
|
defaultLayout $ do
|
|
h2id <- newIdent
|
|
setTitle "~project~ homepage"
|
|
addBody $(hamletFile "homepage")
|
|
addStyle $(cassiusFile "homepage")
|
|
addJavascript $(juliusFile "homepage")
|
|
|