diff --git a/src/Handler/Exam/Users.hs b/src/Handler/Exam/Users.hs index 1b63eab32..81d19040a 100644 --- a/src/Handler/Exam/Users.hs +++ b/src/Handler/Exam/Users.hs @@ -571,7 +571,8 @@ postEUsersR tid ssh csh examn = do -> return Nothing _other -> throwM ExamUserCsvExceptionNoMatchingStudyFeatures - examUsersDBTableValidator = def + examUsersDBTableValidator = def & defaultSorting [SortAscBy "user-name"] + & defaultPagesize PagesizeAll postprocess :: FormResult (First ExamUserActionData, DBFormResult ExamRegistrationId Bool ExamUserTableData) -> FormResult (ExamUserActionData, Set ExamRegistrationId) postprocess inp = do