From 4d45ab4bd578b06bfe0e76d22023d2f00e0ff1ad Mon Sep 17 00:00:00 2001
From: Pagwin <pgp2024@pagwin.xyz>
Date: Sun, 23 Feb 2025 18:05:41 -0500
Subject: [PATCH] pageUrl added

---
 app/Main.hs  | 6 ++----
 app/Types.hs | 4 ++--
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 62f09a7..d5d4c40 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -11,7 +11,6 @@ import Config
 import Control.Monad (forM, when)
 import qualified Data.HashMap.Strict as HM
 import Data.List (sortOn)
-import Data.Maybe (fromJust)
 import qualified Data.Ord as Ord
 import qualified Data.Text as T
 import Deriving.Aeson
@@ -20,7 +19,6 @@ import Development.Shake (Action, Rules, (%>), (|%>), (~>))
 import qualified Development.Shake as Shake
 import Development.Shake.FilePath ((</>))
 import qualified Development.Shake.FilePath as FP
-import qualified Development.Shake.FilePath as Shake
 import Templates
 import Types
 import Utilities
@@ -104,7 +102,7 @@ markdownPost src = do
           { pageTitle = rPostTitle rPost,
             pageContent = postHtml,
             pageNow = time,
-            pageSection = T.pack $ fromJust $ Shake.stripExtension "html" target
+            pageUrl = T.pack ""
           }
   applyTemplateAndWrite "default.html" page target
 
@@ -125,7 +123,7 @@ home =
             { pageTitle = T.pack "Home",
               pageContent = html,
               pageNow = time,
-              pageSection = T.pack $ fromJust $ Shake.stripExtension "html" target
+              pageUrl = T.pack ""
             }
     applyTemplateAndWrite "default.html" page target
 
diff --git a/app/Types.hs b/app/Types.hs
index 3a5b2a3..428a5df 100644
--- a/app/Types.hs
+++ b/app/Types.hs
@@ -10,8 +10,8 @@ data Page = Page
     pageContent :: Text,
     -- build time
     pageNow :: Text,
-    -- css class for page section
-    pageSection :: Text
+    --
+    pageUrl :: Text
   }
   deriving (Show, Generic)
   deriving (ToJSON) via PrefixedSnake "page" Page