chore(audit): audit assign submissions to corrector

src/Audit/Types.hs

@@ -48,6 +48,10 @@ data Transaction
     , transactionUser   :: UserId
     , transactionCourseApplication :: CourseApplicationId
     }
+  | TransactionSubmissionsCorrectorAssigned
+    { transactionSubmissions :: [SubmissionId]
+    , transactionUser        :: UserId
+    }
   | TransactionSubmissionCorrectorUpdated
     { transactionSubmission :: SubmissionId
     , transactionMbUser     :: Maybe UserId

src/Handler/Corrections.hs

@@ -459,11 +459,13 @@ correctionsR whereClause displayColumns dbtFilterUI psValidator actions = do
               content = Right $(widgetFile "messages/submissionsAssignUnauthorized")
           addMessageModal Warning trigger content
         unless (null unassignedAuth) $ do
-          num <- updateWhereCount [SubmissionId <-. Set.toList unassignedAuth]
+          let sIds = Set.toList unassignedAuth
+          num <- updateWhereCount [SubmissionId <-. sIds]
                     [ SubmissionRatingBy       =. Just uid
                     , SubmissionRatingAssigned =. Just now -- save, since only applies to unassigned
                     ]
           addMessageI Success $ MsgUpdatedAssignedCorrectorSingle num
+          audit $ TransactionSubmissionsCorrectorAssigned sIds uid
         (E.Value selfCorrectors:_) <- E.select . E.from $ \(submission `E.InnerJoin` subuser) -> do
             E.on $ submission E.^. SubmissionId E.==. subuser E.^. SubmissionUserSubmission
             E.where_ $ submission E.^. SubmissionId `E.in_` E.valList subs