00dani/lebd
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Set page title on the homepage to the site-wide title

Browse source
This commit is contained in:
Danielle McLean 2017-10-03 21:53:29 +11:00
parent 296fe2dcaf
commit 2b4822093a
Signed by: 00dani
GPG key ID: 3844A6973C6058F1
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Handler/Home.hs
View file

@ -11,4 +11,9 @@ import Widget.Hcard (hcard)
getHomeR :: Handler Html getHomeR :: Handler Html
getHomeR = do getHomeR = do
user <- runDB . getBy404 $ UniqueUsername "dani" user <- runDB . getBy404 $ UniqueUsername "dani"
defaultLayout $(widgetFile "home") maybeTitle <- asks $ appTitle . appSettings
defaultLayout $ do
case maybeTitle of
Just title -> setTitle $ toHtml title
Nothing -> return ()
$(widgetFile "home")