diff options
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 _ -> |