From 3ae7440a18ca889d4791e4d589e06071ad304af9 Mon Sep 17 00:00:00 2001
From: sabadev <saba@sabadev.xyz>
Date: Sun, 11 Apr 2021 19:42:06 -0400
Subject: [PATCH] Fixed styling for Blog Not Found page.

---
 src/Html.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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