From e460d7433631285b3ca73275b2a3888d401c55bd Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Fri, 10 Mar 2023 16:19:25 +0100
Subject: [PATCH] chore(print): change default sorting order for PrintCenterR

---
 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 f3b89f378..9c0475259 100644
--- a/src/Handler/PrintCenter.hs
+++ b/src/Handler/PrintCenter.hs
@@ -279,7 +279,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 [SortAscBy "created"]
+    psValidator = def & defaultSorting [SortDescBy "created"]
                       -- & defaultFilter (singletonMap "acknowledged" [toPathPiece False]) -- TODO: sorting with Nothing restores this filter
   over _1 postprocess <$> dbTable psValidator DBTable{..}