diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2023-12-12 03:46:59 +0100 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2023-12-12 03:47:46 +0100 |
| commit | 4f39e5dbfa49d97637c1370d665e2380118955a1 (patch) | |
| tree | a445825f9d53972e80c9660ed0dbeba4d7e0e529 | |
| parent | 88a8e1cd556bfb7ed35410c2c02c407812d7d584 (diff) | |
fix: fix sort
| -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') = |