From e2fb007551ff25f75fdacf7565c22fb969792da3 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel.sarah@campus.lmu.de>
Date: Thu, 29 Aug 2019 11:26:30 +0200
Subject: [PATCH] chore(audit): audit assign submission to corrector

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

diff --git a/src/Audit/Types.hs b/src/Audit/Types.hs
index 3fc832273..5e0deef1d 100644
--- a/src/Audit/Types.hs
+++ b/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
diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs
index 1d14a8d9f..1464734f1 100644
--- a/src/Handler/Submission.hs
+++ b/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