diff options
author | Alexander Foremny <aforemny@posteo.de> | 2023-10-16 12:55:25 +0200 |
---|---|---|
committer | Alexander Foremny <aforemny@posteo.de> | 2023-10-16 13:53:30 +0200 |
commit | 5981448f0de68dc1938195f4fe688128e5edbf19 (patch) | |
tree | ff7c1507034abdbcc6ceaeed60ed7f46253519f7 /app/History.hs | |
parent | 0391f3cb867db458e6d607facd424f627c99f437 (diff) |
add internal tag `createdAt`
Diffstat (limited to 'app/History.hs')
-rw-r--r-- | app/History.hs | 7 |
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 _ -> |