From 696ebd889abcbc7d51e170215cb14f95f8a3e334 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel.sarah@campus.lmu.de>
Date: Thu, 29 Aug 2019 13:07:17 +0200
Subject: [PATCH] refactor(audit): renamed transaction constructor

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

diff --git a/src/Audit/Types.hs b/src/Audit/Types.hs
index 0765f572c..22d636fb1 100644
--- a/src/Audit/Types.hs
+++ b/src/Audit/Types.hs
@@ -48,7 +48,7 @@ data Transaction
     , transactionUser   :: UserId
     , transactionCourseApplication :: CourseApplicationId
     }
-  | TransactionSubmissionEdit
+  | TransactionSubmissionUser
     { transactionSubmission :: SubmissionId
     , transactionUser       :: UserId
     }
diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index 72472302a..f185eef9e 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -948,7 +948,7 @@ postCorrectionsCreateR = do
                       { submissionUserUser = sheetUser
                       , submissionUserSubmission = subId
                       }
-                    audit $ TransactionSubmissionEdit subId uid
+                    audit $ TransactionSubmissionUser subId uid
                     when (null groups) $
                       addMessageI Warning $ MsgSheetNoRegisteredGroup sheetGroupDesc
                 | length groups < 2
@@ -965,7 +965,7 @@ postCorrectionsCreateR = do
                 { submissionUserUser = sheetPseudonymUser
                 , submissionUserSubmission = subId
                 }
-              audit $ TransactionSubmissionEdit subId uid
+              audit $ TransactionSubmissionUser subId uid
               when (length spGroup > 1) $
                 addMessageI Warning $ MsgSheetNoGroupSubmission sheetGroupDesc
       when allDone $