aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--app/History/CommitInfo.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/app/History/CommitInfo.hs b/app/History/CommitInfo.hs
index ad27d1c..dbb7e20 100644
--- a/app/History/CommitInfo.hs
+++ b/app/History/CommitInfo.hs
@@ -93,8 +93,10 @@ diffCommitInfos maybeOldInfo newInfo =
]
where
newHash = newInfo.hash
- newIssues = newInfo.issues
- oldIssues = maybe [] (.issues) maybeOldInfo
+ newIssues' = newInfo.issues
+ oldIssues' = maybe [] (.issues) maybeOldInfo
+ newIssues = filter (not . (.closed)) newIssues'
+ oldIssues = filter (not . (.closed)) oldIssues'
eq = (==) `on` (.id)
neq = (/=) `on` (.rawText)