add internal tag `createdAt`

3 files changed, 23 insertions, 7 deletions

diff --git a/app/History.hs b/app/History.hs
index f436672..8fdbd0a 100644
--- a/app/History.hs
+++ b/app/History.hs
@@ -12,6 +12,7 @@ import Data.Text.Encoding (decodeUtf8)
 import GHC.Generics (Generic)
 import Issue (Issue (..), fromMatch, id)
 import Issue.Filter (Filter, applyFilter)
+import Issue.Tag qualified as I
 import Parallel (parMapM)
 import Process (proc, sh, sh_)
 import System.Directory (createDirectoryIfMissing, doesFileExist, getCurrentDirectory)
@@ -191,7 +192,11 @@ issueFromIssueEvents issueEvents =
       Just issue
     IssueChanged {issue} : _ -> do
       issueFirst <- issueFromIssueEvent $ head $ reverse issueEvents
-      pure $ issue {provenance = issueFirst.provenance}
+      pure $
+        issue
+          { provenance = issueFirst.provenance,
+            internalTags = I.internalTags issue.title issueFirst.provenance
+          }
     IssueDeleted _ : _ ->
       Nothing
     _ ->
diff --git a/app/Issue.hs b/app/Issue.hs
index 75e700d..8804929 100644
--- a/app/Issue.hs
+++ b/app/Issue.hs
@@ -50,7 +50,7 @@ fromMatch cwd result match = do
                 start = match.start,
                 end = match.end,
                 tags = maybe [] I.extractTags description,
-                internalTags = I.internalTags title
+                internalTags = I.internalTags title provenance
               }
         else Nothing
     )
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