diff options
Diffstat (limited to 'app/Issue/Sort.hs')
| -rw-r--r-- | app/Issue/Sort.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/app/Issue/Sort.hs b/app/Issue/Sort.hs index 772cd7f..1fe8644 100644 --- a/app/Issue/Sort.hs +++ b/app/Issue/Sort.hs @@ -29,7 +29,7 @@ data SortBy deriving (Show) defaultSort :: Sort -defaultSort = Sort Desc (SortByTag "@createdAt") +defaultSort = Sort Desc (SortByTag "createdAt") sortArg :: O.Parser [Sort] sortArg = @@ -52,7 +52,7 @@ applySorts :: [Sort] -> [Issue] -> [Issue] applySorts cs = compose (defaultSort : cs) where compose :: [Sort] -> ([Issue] -> [Issue]) - compose = foldr (.) id . map toSort + compose = foldr (flip (.)) id . map toSort toSort :: Sort -> ([Issue] -> [Issue]) toSort (Sort order sortBy') = |