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

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")