{-# 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" addCassius $(cassiusFile "homepage") addJulius $(juliusFile "homepage") addWidget $(hamletFile "homepage")