From d6f108a4a121ba2458f511b87c8918fe434585e4 Mon Sep 17 00:00:00 2001
From: sabadev <saba@sabadev.xyz>
Date: Tue, 23 Mar 2021 09:06:22 -0400
Subject: [PATCH] Removed getTheme as it is already implemented by
 safeStylingLink.

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

diff --git a/src/Html.hs b/src/Html.hs
index e7b8bfa..50cf7b0 100644
--- a/src/Html.hs
+++ b/src/Html.hs
@@ -18,7 +18,7 @@ htmlContainer theme contents = do
       title_ $ toHtml siteTitle
       meta_ [charset_ "utf8"]
       meta_ [name_ "description", content_ "width=device-width"]
-      link_ [rel_ "stylesheet", href_ $ getTheme theme]
+      link_ [rel_ "stylesheet", href_ $ safeStylingLink theme]
     body_ $ do
       nav
       div_ [role_ "main"] contents
@@ -46,6 +46,3 @@ staticPath = "static/"
 
 markdownExtension :: T.Text
 markdownExtension = ".md"
-
-getTheme :: Maybe Theme -> T.Text
-getTheme theme = safeStylingLink theme
-- 
2.20.1