From d48d922a9ce2f0ab5390439a711ac2c660b8378e Mon Sep 17 00:00:00 2001 From: Steffen Jost Date: Mon, 27 Mar 2023 15:12:55 +0000 Subject: [PATCH] chore(print): change default sorting order for print center --- src/Handler/PrintCenter.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Handler/PrintCenter.hs b/src/Handler/PrintCenter.hs index 93c03c4a4..1ee47ea0b 100644 --- a/src/Handler/PrintCenter.hs +++ b/src/Handler/PrintCenter.hs @@ -248,7 +248,7 @@ mkPJTable = do (First (Just act), jobMap) <- inp let jobSet = Map.keysSet . Map.filter id $ getDBFormResult (const False) jobMap return (act, jobSet) - psValidator = def & defaultSorting [SortDescBy "created"] + psValidator = def & defaultSorting [SortDescBy "acknowledged", SortDescBy "created"] -- & defaultFilter (singletonMap "acknowledged" [toPathPiece False]) -- TODO: sorting with Nothing restores this filter over _1 postprocess <$> dbTable psValidator DBTable{..}