fix(audit): add missing submission edit

2019-09-04 15:32:45 +02:00 · 2019-09-04 15:32:45 +02:00 · 537e66e487
commit 537e66e487
parent 2f9f0535af
1 changed files with 1 additions and 0 deletions
--- 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