From 1a0c8e3444f94f6904e3b53e508e37fe5dbae64d Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Fri, 8 Dec 2023 06:59:26 +0100 Subject: fix: show deleted issues as closed in `log` command --- app/History.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'app/History.hs') 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' -- cgit v1.2.3