fix(subs): primarily order subs list by assigned time

2022-02-01 17:27:30 +01:00 · 2022-02-01 17:27:30 +01:00 · 803d8b30df
commit 803d8b30df
parent dbdd3dc565
1 changed files with 2 additions and 2 deletions
--- a/src/Handler/Submission/List.hs
+++ b/src/Handler/Submission/List.hs
@ -1023,7 +1023,7 @@ postCorrectionsR = do
        , colAssigned
        , colRating
        , colRated
-        ] -- Continue here
+        ]
      filterUI = Just $ mconcat
        [ filterUIPseudonym
        , filterUICourse courseOptions
@ -1046,7 +1046,7 @@ postCorrectionsR = do
      psValidator = def
        & restrictCorrector
        & restrictAnonymous
-        & defaultSorting [SortDescBy "ratingtime", SortAscBy "assignedtime" ]
+        & defaultSorting [SortAscBy "assignedtime", SortDescBy "ratingtime"]
        & defaultFilter (singletonMap "israted" [toPathPiece False])

      csvSettings = Just CorrectionTableCsvSettings