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{..}