From bb88dbe078a0f16c0626a2825fd9f4d6bc775875 Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Tue, 17 Oct 2023 09:30:31 +0200 Subject: applySort -> applySorts --- app/History.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'app/History.hs') diff --git a/app/History.hs b/app/History.hs index d2e6a46..fee1f2e 100644 --- a/app/History.hs +++ b/app/History.hs @@ -13,7 +13,7 @@ import GHC.Generics (Generic) import Git qualified import Issue (Issue (..), fromMatch, id) import Issue.Filter (Filter, applyFilters) -import Issue.Sort (Sort, applySort) +import Issue.Sort (Sort, applySorts) import Issue.Tag qualified as I import Parallel (parMapM) import Process (proc, sh) @@ -55,7 +55,7 @@ listIssues sort filters paths = do let eventses = getEvents hashFirst issuesInitial (commitInfos ++ [commitInfoWorkingTree]) let issues = mapMaybe issueFromIssueEvents eventses issuesFiltered = applyFilters filters issues - issuesSorted = applySort sort issuesFiltered + issuesSorted = applySorts sort issuesFiltered issuesWithinPaths = case paths of [] -> -- cgit v1.2.3