From 1a0c8e3444f94f6904e3b53e508e37fe5dbae64d Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Fri, 8 Dec 2023 06:59:26 +0100
Subject: fix: show deleted issues as closed in `log` command

---
 app/Comment/Language.hs | 2 ++
 app/History.hs          | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'app')

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'
-- 
cgit v1.2.3