From c5f2e5e72a1b047882b4fc397261a0d9bc17ed33 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel.sarah@campus.lmu.de>
Date: Thu, 29 Aug 2019 12:56:44 +0200
Subject: [PATCH] chore(audit): audit submission edit

---
 src/Audit/Types.hs         | 4 ++++
 src/Handler/Corrections.hs | 1 +
 2 files changed, 5 insertions(+)

diff --git a/src/Audit/Types.hs b/src/Audit/Types.hs
index fc9fc4bf9..0765f572c 100644
--- a/src/Audit/Types.hs
+++ b/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
diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index fb265caf0..20c1f5546 100644
--- a/src/Handler/Corrections.hs
+++ b/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