chore(audit): audit submission edit

src/Audit/Types.hs

@@ -48,6 +48,10 @@ data Transaction
     , transactionUser   :: UserId
     , transactionCourseApplication :: CourseApplicationId
     }
+  | TransactionSubmissionEdit
+    { transactionSubmission :: SubmissionId
+    , transactionUser       :: UserId
+    }
   | TransactionSubmissionCorrectorAssigned
     { transactionSubmission :: SubmissionId
     , transactionMbUser     :: Maybe UserId

src/Handler/Corrections.hs

@@ -948,6 +948,7 @@ postCorrectionsCreateR = do
                       { submissionUserUser = sheetUser
                       , submissionUserSubmission = subId
                       }
+                    audit $ TransactionSubmissionEdit subId uid
                     when (null groups) $
                       addMessageI Warning $ MsgSheetNoRegisteredGroup sheetGroupDesc
                 | length groups < 2