add internal tag `createdAt`

1 files changed, 16 insertions, 5 deletions

diff --git a/app/Issue/Tag.hs b/app/Issue/Tag.hs
index 9c0c98f..c227491 100644
--- a/app/Issue/Tag.hs
+++ b/app/Issue/Tag.hs
@@ -2,9 +2,11 @@ module Issue.Tag (Tag (..), extractTags, internalTags) where
 
 import Data.Binary (Binary)
 import Data.Maybe (catMaybes)
-import Data.Text (Text)
+import Data.Text (Text, pack)
 import Data.Text qualified as T
+import Data.Time.Clock (UTCTime (utctDay))
 import GHC.Generics (Generic)
+import Issue.Provenance (Provenance (..))
 
 data Tag = Tag Text Text deriving (Show, Generic, Binary)
 
@@ -21,10 +23,19 @@ extractTags =
       )
     . T.lines
 
-internalTags :: Text -> [Tag]
-internalTags title =
-  [ Tag "id" (toSpinalCase title)
-  ]
+internalTags :: Text -> Maybe Provenance -> [Tag]
+internalTags title provenance' =
+  concat
+    [ [ Tag "id" (toSpinalCase title)
+      ],
+      maybe
+        []
+        ( \provenance ->
+            [ Tag "createdAt" (pack (show (utctDay provenance.date)))
+            ]
+        )
+        provenance'
+    ]
 
 toSpinalCase :: Text -> Text
 toSpinalCase = T.replace " " "-" . T.filter keep . T.toLower