From: sabadev <saba@sabadev.xyz>
Date: Sun, 11 Apr 2021 23:42:06 +0000 (-0400)
Subject: Fixed styling for Blog Not Found page.
X-Git-Url: http://sabadev.xyz:4321/?a=commitdiff_plain;h=3ae7440a18ca889d4791e4d589e06071ad304af9;p=website.git

Fixed styling for Blog Not Found page.
---

diff --git a/src/Html.hs b/src/Html.hs
index e0f8a24..3a18ed2 100644
--- a/src/Html.hs
+++ b/src/Html.hs
@@ -81,7 +81,10 @@ blogNotFound :: (MonadIO m) => Maybe Theme -> BlogId -> SomeException -> m (Html
 blogNotFound theme blogId _ = htmlContainer theme Nothing $ do
   div_ [class_ "not-found"] $ do
     h1_ $ toHtml @T.Text "Blog not found"
-    p_ $ toHtml $ "Blog post " <> T.pack blogId <> " could not found."
+    p_ $ do
+      toHtml @T.Text "Blog post "
+      em_ $ toHtml $ T.pack blogId
+      toHtml @T.Text " could not found."
 
 siteTitle :: T.Text
 siteTitle = "My Site"