feat(exam-users): provide better table defaults

2019-07-26 11:37:24 +02:00 · 2019-07-26 11:37:24 +02:00 · a689d19bfa
commit a689d19bfa
parent ceed070e35
1 changed files with 2 additions and 1 deletions
--- 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