From bb88dbe078a0f16c0626a2825fd9f4d6bc775875 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Tue, 17 Oct 2023 09:30:31 +0200
Subject: applySort -> applySorts

---
 app/History.hs    | 4 ++--
 app/Issue/Sort.hs | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

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
               [] ->
diff --git a/app/Issue/Sort.hs b/app/Issue/Sort.hs
index 2195244..46f4a19 100644
--- a/app/Issue/Sort.hs
+++ b/app/Issue/Sort.hs
@@ -2,7 +2,7 @@ module Issue.Sort
   ( Sort,
     Order,
     SortBy,
-    applySort,
+    applySorts,
     sortArg,
   )
 where
@@ -48,8 +48,8 @@ sortArg =
       | "-@" `T.isPrefixOf` s = Just (Sort Desc (SortByTag (T.drop 2 s)))
       | otherwise = Nothing
 
-applySort :: [Sort] -> [Issue] -> [Issue]
-applySort cs = compose (defaultSort : cs)
+applySorts :: [Sort] -> [Issue] -> [Issue]
+applySorts cs = compose (defaultSort : cs)
   where
     compose :: [Sort] -> ([Issue] -> [Issue])
     compose = foldr (.) id . map toSort
-- 
cgit v1.2.3