From 50915a6296546640a32cc34695d98a3bb8519387 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel.sarah@campus.lmu.de>
Date: Thu, 29 Aug 2019 11:46:47 +0200
Subject: [PATCH] chore(audit): audit delete corrections

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

diff --git a/src/Audit/Types.hs b/src/Audit/Types.hs
index c9e48beff..6e740d9f3 100644
--- a/src/Audit/Types.hs
+++ b/src/Audit/Types.hs
@@ -52,6 +52,9 @@ data Transaction
     { transactionSubmissions :: [SubmissionId]
     , transactionUser        :: UserId
     }
+  | TransactionSubmissionsCorrectionsDeleted
+    { transactionSubmissions :: [SubmissionId]
+    }
   | TransactionSubmissionCorrectorUpdated
     { transactionSubmission :: SubmissionId
     , transactionMbUser     :: Maybe UserId
diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 240aeb720..2d1cfddec 100644
--- a/src/Handler/Corrections.hs
+++ b/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'