feat(eecorrectr): more appropriate error messages

messages/uniworx/de-de-formal.msg

@@ -1593,6 +1593,9 @@ ExamCorrectErrorNoMatchingParticipants: Dem Identifikator konnte kein Prüfungst
 ExamCorrectErrorPartResultOutOfBounds examPartNumber@ExamPartNumber: Prüfungsergebnis für Teil #{examPartNumber} ist nicht größer Null.
 ExamCorrectErrorPartResultOutOfBoundsMax examPartNumber@ExamPartNumber maxPoints@Points: Prüfungsergebnis für Teil #{examPartNumber} liegt nicht zwischen 0 und #{maxPoints}.
 
+ExternalExamCorrectErrorMultipleMatchingUsers: Dem Identifikator konnten mehrere Studierende zugeordnet werden.
+ExternalExamCorrectErrorNoMatchingUsers: Dem Identifikator konnte kein Studierender zugeordnet werden.
+
 SubmissionUserInvitationAccepted shn@SheetName: Sie wurden als Mitabgebende(r) für eine Abgabe zu #{shn} eingetragen
 SubmissionUserInvitationDeclined shn@SheetName: Sie haben die Einladung, Mitabgebende(r) für #{shn} zu werden, abgelehnt
 SubmissionUserInviteHeading shn@SheetName: Einladung zu einer Abgabe für #{shn}

messages/uniworx/en-eu.msg

@@ -1588,6 +1588,9 @@ ExamCorrectErrorNoMatchingParticipants: This identifier does not match on any ex
 ExamCorrectErrorPartResultOutOfBounds examPartNumber: Exam part result for #{examPartNumber} ist not greater zero.
 ExamCorrectErrorPartResultOutOfBoundsMax examPartNumber maxPoints: Exam part result for #{examPartNumber} is not between 0 and #{maxPoints}.
 
+ExternalExamCorrectErrorMultipleMatchingUsers: This identifier matches on multiple students.
+ExternalExamCorrectErrorNoMatchingUsers: This identifier does not match any student.
+
 ExamCorrectExamResultDelete: Delete exam result
 ExamCorrectExamResultNone: No change
 ExamCorrectUserCandidatesMore: and more

src/Handler/ExternalExam/Correct.hs

@@ -137,7 +137,7 @@ postEECorrectR tid ssh coursen examn = do
 
       | [] <- matches -> return CorrectInterfaceResponseFailure
         { cirfUser    = Nothing
-        , cirfMessage = mr MsgExamCorrectErrorNoMatchingParticipants  -- TODO use new msg
+        , cirfMessage = mr MsgExternalExamCorrectErrorNoMatchingUsers
         }
 
       | otherwise -> do
@@ -145,7 +145,7 @@ postEECorrectR tid ssh coursen examn = do
         return CorrectInterfaceResponseAmbiguous
           { ciraUsers   = Set.fromList users
           , ciraHasMore = length matches > maxCountUserMatches
-          , ciraMessage = mr MsgExamCorrectErrorMultipleMatchingParticipants  -- TODO use new msg
+          , ciraMessage = mr MsgExternalExamCorrectErrorMultipleMatchingUsers
           }
 
   whenM acceptsJson $