From a689d19bfa314ae7e559232c0c3d23948c211ebd Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Fri, 26 Jul 2019 11:37:24 +0200
Subject: [PATCH] feat(exam-users): provide better table defaults

---
 src/Handler/Exam/Users.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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