From a4fc235ed4373ff31d82f1cf40485b5215293837 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@ifi.lmu.de>
Date: Tue, 13 Dec 2022 20:16:53 +0100
Subject: [PATCH] chore(add-users): audit tutorial participant edit

---
 src/Audit/Types.hs                      | 11 +++++++++++
 src/Handler/Course/ParticipantInvite.hs |  7 +++----
 2 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/src/Audit/Types.hs b/src/Audit/Types.hs
index 14f6fd6c6..db4dbdd30 100644
--- a/src/Audit/Types.hs
+++ b/src/Audit/Types.hs
@@ -112,6 +112,17 @@ data Transaction
     { transactionTutorial :: TutorialId
     }
 
+  | TransactionTutorialParticipantEdit
+    { transactionTutorial            :: TutorialId
+    , transactionTutorialParticipant :: TutorialParticipantId
+    , transactionUser                :: UserId
+    }
+  | TransactionTutorialParticipantDelete
+    { transactionTutorial            :: TutorialId
+    , transactionTutorialParticipant :: TutorialParticipantId
+    , transactionUser                :: UserId
+    }
+
   | TransactionExternalExamEdit
     { transactionExternalExam :: ExternalExamId
     }
diff --git a/src/Handler/Course/ParticipantInvite.hs b/src/Handler/Course/ParticipantInvite.hs
index 28eb63a76..d500c190f 100644
--- a/src/Handler/Course/ParticipantInvite.hs
+++ b/src/Handler/Course/ParticipantInvite.hs
@@ -287,10 +287,9 @@ upsertNewTutorial cid tutorialName = do
 registerTutorialMembers :: TutorialId -> Set UserId -> Handler ()
 registerTutorialMembers tutId (Set.toList -> users) = runDB $ do
   prevParticipants <- fmap Set.fromList $ selectList [TutorialParticipantUser <-. users, TutorialParticipantTutorial ==. tutId] []
-  participants <- fmap Set.fromList . for users $ \tutorialParticipantUser -> upsert
-    TutorialParticipant { tutorialParticipantTutorial = tutId, .. }
-    []
-    -- TODO: audit
+  participants <- fmap Set.fromList . for users $ \tutorialParticipantUser -> do
+    tutPartId <- upsert TutorialParticipant { tutorialParticipantTutorial = tutId, .. } []
+    audit $ TransactionTutorialParticipantEdit tutId tutPartId tutorialParticipantUser
   let newParticipants = participants Set.\\ prevParticipants
   unless (Set.null newParticipants) $
     addMessageI Success . MsgCourseParticipantsRegisteredTutorial $ Set.size newParticipants