diff --git a/src/Handler/Submission/List.hs b/src/Handler/Submission/List.hs index d9976e95c..66d1c11b0 100644 --- 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