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