16 lines
377 B
Plaintext
16 lines
377 B
Plaintext
{-# LANGUAGE TemplateHaskell, OverloadedStrings #-}
|
|
module Handler.Root where
|
|
|
|
import ~sitearg~
|
|
|
|
getRootR :: Handler RepHtml
|
|
getRootR = do
|
|
mu <- maybeAuth
|
|
defaultLayout $ do
|
|
h2id <- newIdent
|
|
setTitle "~project~ homepage"
|
|
addBody $(hamletFile "homepage")
|
|
addStyle $(cassiusFile "homepage")
|
|
addJavascript $(juliusFile "homepage")
|
|
|