From 1f68ce7c18ab0e2470afe58ab809e98144d2362d Mon Sep 17 00:00:00 2001 From: sabadev Date: Mon, 12 Apr 2021 17:51:28 -0400 Subject: [PATCH] Fixed meta issues. --- src/Html.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/Html.hs b/src/Html.hs index fee5c34..a592b93 100644 --- a/src/Html.hs +++ b/src/Html.hs @@ -23,7 +23,8 @@ htmlContainer theme maybeBlogId contents = do head_ $ do title_ $ toHtml siteTitle meta_ [charset_ "utf8"] - meta_ [name_ "description", content_ "width=device-width"] + meta_ [name_ "description", content_ "A personal website with custom theming"] + meta_ [name_ "viewport", content_ "width=device-width, initial-scale=1.0"] link_ [rel_ "stylesheet", href_ $ safeStylingLink theme] body_ $ do div_ [role_ "main"] contents @@ -90,7 +91,7 @@ blogNotFound theme blogId _ = do throwError $ err404 { errBody = renderBS body } siteTitle :: T.Text -siteTitle = "My Site" +siteTitle = "Saba's Site" staticPath :: FilePath staticPath = "static/" -- 2.20.1