From 5981448f0de68dc1938195f4fe688128e5edbf19 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Mon, 16 Oct 2023 12:55:25 +0200
Subject: add internal tag `createdAt`

---
 app/History.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'app/History.hs')

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
     _ ->
-- 
cgit v1.2.3