chore(audit): audit delete corrections

src/Audit/Types.hs

@@ -52,6 +52,9 @@ data Transaction
     { transactionSubmissions :: [SubmissionId]
     , transactionUser        :: UserId
     }
+  | TransactionSubmissionsCorrectionsDeleted
+    { transactionSubmissions :: [SubmissionId]
+    }
   | TransactionSubmissionCorrectorUpdated
     { transactionSubmission :: SubmissionId
     , transactionMbUser     :: Maybe UserId

src/Handler/Corrections.hs

@@ -484,6 +484,7 @@ correctionsR whereClause displayColumns dbtFilterUI psValidator actions = do
                   -- , SubmissionRatingComment  =. Nothing -- Kept for easy reassignment by 2nd corrector
                   ]
         addMessageI Success $ MsgRemovedCorrections num
+        audit $ TransactionSubmissionsCorrectionsDeleted subs
       redirect currentRoute
     FormSuccess (CorrAutoSetCorrectorData shid, subs') -> do
       subs <- mapM decrypt $ Set.toList subs'