aboutsummaryrefslogtreecommitdiffstats
path: root/app/History.hs
diff options
context:
space:
mode:
authorLibravatar Alexander Foremny <aforemny@posteo.de>2023-10-16 12:55:25 +0200
committerLibravatar Alexander Foremny <aforemny@posteo.de>2023-10-16 13:53:30 +0200
commit5981448f0de68dc1938195f4fe688128e5edbf19 (patch)
treeff7c1507034abdbcc6ceaeed60ed7f46253519f7 /app/History.hs
parent0391f3cb867db458e6d607facd424f627c99f437 (diff)
add internal tag `createdAt`
Diffstat (limited to 'app/History.hs')
-rw-r--r--app/History.hs7
1 files changed, 6 insertions, 1 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
_ ->