chore(audit): audit assign submission to corrector

src/Audit/Types.hs

@@ -48,6 +48,10 @@ data Transaction
     , transactionUser   :: UserId
     , transactionCourseApplication :: CourseApplicationId
     }
+  | TransactionSubmissionCorrectorUpdated
+    { transactionSubmission :: SubmissionId
+    , transactionMbUser     :: Maybe UserId
+    }
   deriving (Eq, Ord, Read, Show, Generic, Typeable)
 
 deriveJSON defaultOptions

src/Handler/Submission.hs

@@ -622,6 +622,7 @@ postSubAssignR tid ssh csh shn cID = do
                   , SubmissionRatingAssigned =. (now <$ mbUserId)
                   ]
       addMessageI Success MsgCorrectorUpdated
+      audit $ TransactionSubmissionCorrectorUpdated sId mbUserId
     redirect actionUrl
   let corrForm = wrapForm' BtnSave corrForm' def
         { formAction = Just $ SomeRoute actionUrl