diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-10-17 09:14:13 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-10-17 09:14:13 +0200 |
| commit | 236316221dc1fe4152028d7720b68a437bb3ea52 (patch) | |
| tree | b8a25eef577c0bb1e2ff7f1c17f649ed5bc85819 /app/History.hs | |
| parent | 49087bcdfa7f04a4a09bd529b30cb444f690ec44 (diff) | |
refactor include,exclude from simple filters
Diffstat (limited to 'app/History.hs')
| -rw-r--r-- | app/History.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/app/History.hs b/app/History.hs index 4f62610..d2e6a46 100644 --- a/app/History.hs +++ b/app/History.hs @@ -12,7 +12,7 @@ import Data.Text.Encoding (decodeUtf8) import GHC.Generics (Generic) import Git qualified import Issue (Issue (..), fromMatch, id) -import Issue.Filter (Filter, applyFilter) +import Issue.Filter (Filter, applyFilters) import Issue.Sort (Sort, applySort) import Issue.Tag qualified as I import Parallel (parMapM) @@ -54,7 +54,7 @@ listIssues sort filters paths = do commitInfoWorkingTree <- getCommitInfoWorkingTree paths let eventses = getEvents hashFirst issuesInitial (commitInfos ++ [commitInfoWorkingTree]) let issues = mapMaybe issueFromIssueEvents eventses - issuesFiltered = filter (applyFilter filters) issues + issuesFiltered = applyFilters filters issues issuesSorted = applySort sort issuesFiltered issuesWithinPaths = case paths of |