fix(submissions): more precise feedback

messages/uniworx/categories/courses/submission/de-de-formal.msg

@@ -60,6 +60,8 @@ NotAParticipant email@UserEmail tid@TermId csh@CourseShorthand: #{email} ist nic
 TooManyParticipants: Es wurden zu viele Mitabgebende angegeben
 SubmissionCreated: Abgabe erfolgreich angelegt
 SubmissionUpdated: Abgabe erfolgreich ersetzt
+SubmissionUsersUpdated: Liste von Abgebenden erfolgreich angepasst
+SubmissionUnchanged: Abgabe unverändert
 FileCorrected: Korrigiert (Dateien)
 Corrected: Korrigiert
 HeadingSubmissionEditHead tid@TermId ssh@SchoolId csh@CourseShorthand sheetName@SheetName: #{tid}-#{ssh}-#{csh} #{sheetName}: Abgabe editieren/anlegen

messages/uniworx/categories/courses/submission/en-eu.msg

@@ -58,6 +58,8 @@ NotAParticipant email tid csh: #{email} is not a participant of #{tid}-#{csh}.
 TooManyParticipants: You have specified more than the allowed number of submittors.
 SubmissionCreated: Successfully created submission
 SubmissionUpdated: Successfully replaced submission
+SubmissionUsersUpdated: Successfully changed list of submittors
+SubmissionUnchanged: Submission unchanged
 FileCorrected: Marked (files)
 Corrected: Marked
 HeadingSubmissionEditHead tid ssh csh sheetName: #{tid}-#{ssh}-#{csh} #{sheetName}: Edit/Create submission

src/Handler/Submission/Helper.hs

@@ -528,8 +528,11 @@ submissionHelper tid ssh csh shn mcid = do
         uid <- maybe notAuthenticated return muid
         insert_ $ AuthorshipStatementSubmission asdId smid uid now
 
-      addMessageI Success $ if | Nothing <- msmid -> MsgSubmissionCreated
-                               | otherwise        -> MsgSubmissionUpdated
+      if | is _Nothing msmid       -> addMessageI Success MsgSubmissionCreated
+         | is _Just mFiles         -> addMessageI Success MsgSubmissionUpdated
+         | subUsers == subUsersOld -> addMessageI Info    MsgSubmissionUnchanged
+         | otherwise               -> addMessageI Success MsgSubmissionUsersUpdated
+    
       Just <$> encrypt smid
 
   case mCID of