chore(add-users): audit tutorial participant edit

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
     }

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