From 537e66e4877027b858d6ecc55d12ee40e87928b7 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel.sarah@campus.lmu.de>
Date: Wed, 4 Sep 2019 15:32:45 +0200
Subject: [PATCH] fix(audit): add missing submission edit

---
 src/Handler/Corrections.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index cc63f18ae..f36f157d5 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -947,6 +947,7 @@ postCorrectionsCreateR = do
                   -> do
                     subId <- insert submissionPrototype
                     void . insert $ SubmissionEdit uid now subId
+                    audit $ TransactionSubmissionEdit subId sid
                     insertMany_ . flip map (Set.toList groupUsers) $ \sheetUser -> SubmissionUser
                       { submissionUserUser = sheetUser
                       , submissionUserSubmission = subId