From e141fb4666e931f623342099989661f576fde24e Mon Sep 17 00:00:00 2001 From: Danielle McLean Date: Thu, 5 Oct 2017 23:09:44 +1100 Subject: [PATCH] Actually set the 'author' meta correctly in the page head --- src/Handler/Home.hs | 8 +++++++- templates/default-layout-wrapper.hamlet | 4 +--- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs index 6700ecb..74fe394 100644 --- a/src/Handler/Home.hs +++ b/src/Handler/Home.hs @@ -1,7 +1,7 @@ {-# LANGUAGE NoImplicitPrelude #-} {-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE TemplateHaskell #-} -{-# LANGUAGE MultiParamTypeClasses #-} {-# LANGUAGE TypeFamilies #-} module Handler.Home where @@ -11,9 +11,15 @@ import Widget.Hcard (hcard) getHomeR :: Handler Html getHomeR = do user <- runDB . getBy404 $ UniqueUsername "dani" + let name = userFullName . entityVal $ user maybeTitle <- asks $ appTitle . appSettings defaultLayout $ do case maybeTitle of Just title -> setTitle $ toHtml title Nothing -> return () + toWidgetHead + [hamlet| + + + |] $(widgetFile "home") diff --git a/templates/default-layout-wrapper.hamlet b/templates/default-layout-wrapper.hamlet index a1adfb3..58a3c1f 100644 --- a/templates/default-layout-wrapper.hamlet +++ b/templates/default-layout-wrapper.hamlet @@ -3,11 +3,9 @@ $doctype 5 + #{pageTitle pc} - <meta name="description" content=""> - <meta name="author" content=""> - <meta name="generator" content="#{packageName package} #{packageVersion package}"> $maybe route <- mcurrentRoute <link rel="canonical" href=@{route}>