From a99f4aee1fee61a29860787dc25865c3af3a5522 Mon Sep 17 00:00:00 2001
From: Pagwin <pgp2024@pagwin.xyz>
Date: Tue, 5 Nov 2024 13:27:17 -0500
Subject: [PATCH] iso date break?

---
 app/Templates.hs | 3 ++-
 app/Types.hs     | 1 +
 app/Utilities.hs | 4 ++--
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/app/Templates.hs b/app/Templates.hs
index 66da65e..aca8225 100644
--- a/app/Templates.hs
+++ b/app/Templates.hs
@@ -10,7 +10,7 @@ import Development.Shake.FilePath ((</>))
 import GHC.Stack (HasCallStack)
 import qualified Text.Mustache as Mus
 import qualified Text.Mustache.Compile as Mus
-import Types (Post (postAuthor, postContent, postDate, postLink, postTags, postTitle), RenderedPost (RenderedPost, rPostAuthor, rPostContent, rPostDate, rPostHasTags, rPostLink, rPostTags, rPostTitle))
+import Types (Post (postAuthor, postContent, postDate, postLink, postTags, postTitle), RenderedPost (RenderedPost, rPostAuthor, rPostContent, rPostDate, rPostHasTags, rPostIsoDate, rPostLink, rPostTags, rPostTitle))
 
 applyTemplate :: (HasCallStack, (ToJSON a)) => String -> a -> Action Text
 applyTemplate templateName context = do
@@ -51,6 +51,7 @@ fromPost post =
       rPostTags = postTags post,
       rPostHasTags = not . null . postTags $ post,
       rPostDate = postDate post,
+      rPostIsoDate = postDate post,
       rPostContent = postContent post,
       rPostLink = postLink post
     }
diff --git a/app/Types.hs b/app/Types.hs
index c8f5fd7..823e7b8 100644
--- a/app/Types.hs
+++ b/app/Types.hs
@@ -14,6 +14,7 @@ data RenderedPost = RenderedPost
     rPostTags :: [Text],
     rPostHasTags :: Bool,
     rPostDate :: Maybe Text,
+    rPostIsoDate :: Maybe Text,
     rPostContent :: Maybe Text,
     rPostLink :: Maybe Text
   }
diff --git a/app/Utilities.hs b/app/Utilities.hs
index 8a32d80..732f0ac 100644
--- a/app/Utilities.hs
+++ b/app/Utilities.hs
@@ -131,8 +131,8 @@ markdownToPost path = do
 yamlToPost :: FilePath -> Action Post
 yamlToPost path = do
   post <- decodeFileThrow path
-  let post' = dateTransform post
-  return $ fromMaybe post post'
+  -- let post' = dateTransform post
+  return post
   where
     dateTransform post@(Post {postDate}) = do
       postDate' <- postDate