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

2017-10-03 21:53:29 +11:00 · 2017-10-03 21:53:29 +11:00 · 2b4822093a
parent 296fe2dcaf
commit 2b4822093a
1 changed files with 6 additions and 1 deletions
--- a/src/Handler/Home.hs
+++ b/src/Handler/Home.hs
@ -11,4 +11,9 @@ import Widget.Hcard (hcard)
 getHomeR :: Handler Html
 getHomeR = do
    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")