diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs index 946ad1ae9..cf3860950 100644 --- a/src/Handler/Corrections.hs +++ b/src/Handler/Corrections.hs @@ -249,9 +249,9 @@ makeCorrectionsTable whereClause dbtColonnade psValidator dbtProj' dbtParams = d E.sub_select . E.from $ \(submissionUser `E.InnerJoin` user) -> do E.on $ submissionUser E.^. SubmissionUserUser E.==. user E.^. UserId E.where_ $ submissionUser E.^. SubmissionUserSubmission E.==. submission E.^. SubmissionId - E.orderBy [E.asc $ user E.^. UserDisplayName] + E.orderBy [E.asc $ user E.^. UserSurname] E.limit 1 - return (user E.^. UserDisplayName) + return (user E.^. UserSurname) ) ]