Simplify site title handling, automatically suffix site title to all pages

2017-10-09 13:50:26 +11:00 · 2017-10-09 13:50:26 +11:00 · 1b8a07a5f6
commit 1b8a07a5f6
parent 4088735c69
8 changed files with 17 additions and 13 deletions
--- a/src/Handler/Home.hs
+++ b/src/Handler/Home.hs
@ -15,14 +15,10 @@ import Widget.Feed ( hFeed )
 getHomeR :: Handler Html
 getHomeR = do
    userE@(Entity userId user) <- runDB . getBy404 $ UniqueUser "dani"
-    maybeTitle <- asks $ appTitle . appSettings
+    title <- asks $ siteTitle . appSettings
    entries <- runDB $ selectList [EntryAuthorId ==. userId] [Desc EntryPublished]
    defaultLayout $ do
-        case maybeTitle of
-          Just title -> do
-              setTitle $ toHtml title
-              atomLink FeedR title
-          Nothing -> return ()
+        atomLink FeedR title
        toWidgetHead
            [hamlet|
                <meta name="author" content=#{userFullName user}>