aboutsummaryrefslogtreecommitdiffstats
path: root/app/Issue
diff options
context:
space:
mode:
Diffstat (limited to 'app/Issue')
-rw-r--r--app/Issue/Sort.hs6
1 files changed, 3 insertions, 3 deletions
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