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/Issue/Sort.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'app/Issue') 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