diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-12-08 06:59:26 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-12-08 06:59:26 +0100 |
| commit | 1a0c8e3444f94f6904e3b53e508e37fe5dbae64d (patch) | |
| tree | b3698cfe513a8a691815f83c3ee9bc18b9a571d7 | |
| parent | 0d20548e3846cb80acca07fad2a1dc3cfe024528 (diff) | |
fix: show deleted issues as closed in `log` command
| -rw-r--r-- | app/Comment/Language.hs | 2 | ||||
| -rw-r--r-- | app/History.hs | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/app/Comment/Language.hs b/app/Comment/Language.hs index 009c6e6..67c3413 100644 --- a/app/Comment/Language.hs +++ b/app/Comment/Language.hs @@ -26,6 +26,8 @@ fromExtension ".hs" = Haskell fromExtension ext = throw $ E.UnknownFileExtension ext -- TODO add languages elm, shell, nix +-- +-- @supersedes add-support-for-all-tree-grepper-supported-files parser :: Language -> Ptr S.Language parser Haskell = S.tree_sitter_haskell diff --git a/app/History.hs b/app/History.hs index d9f434d..72ca2d9 100644 --- a/app/History.hs +++ b/app/History.hs @@ -191,7 +191,7 @@ newIssueEvents oldIssues' commitHash issues' = | (newIssue : oldIssue : _) <- intersectBy' eq issues oldIssues, neq newIssue oldIssue ], - [IssueDeleted commitHash issue <$> patchDeleted issue | issue <- deleteFirstsBy eq oldIssues issues] + [IssueDeleted commitHash issue {I.closed = True} <$> patchDeleted issue | issue <- deleteFirstsBy eq oldIssues issues] ] where issues = filter (not . (.closed)) issues' |