chore(tutorial-users): audit qualification edits

src/Audit/Types.hs

@@ -187,8 +187,18 @@ data Transaction
     , transactionReceived      :: UTCTime -- when was the csv file received?
     }
 
-  -- TODO: SetQualification
-  
+  | TransactionQualificationUserEdit
+    { transactionQualificationUser :: QualificationUserId
+    , transactionQualification     :: QualificationId
+    , transactionUser              :: UserId
+    , transactionQualificationValidUntil :: Day
+    }
+  | TransactionQualificationUserDelete
+    { transactionQualificationUser :: QualificationUserId
+    , transactionQualification     :: QualificationId
+    , transactionUser              :: UserId
+    }
+
   deriving (Eq, Ord, Read, Show, Generic, Typeable)
 
 deriveJSON defaultOptions

src/Handler/Tutorial/Users.hs

@@ -97,8 +97,8 @@ postTUsersR tid ssh csh tutn = do
   formResult participantRes $ \case
     (TutorialUserGrantQualificationData{..}, selectedUsers) -> do
       today <- localDay . TZ.utcToLocalTimeTZ appTZ <$> liftIO getCurrentTime
-      runDB . forM_ selectedUsers $ \qualificationUserUser -> void $
-        upsert
+      runDB . forM_ selectedUsers $ \qualificationUserUser -> void $ do
+        quid <- upsert
           QualificationUser
             { qualificationUserQualification =  tuQualification
             , qualificationUserValidUntil    =  tuValidUntil
@@ -111,6 +111,12 @@ postTUsersR tid ssh csh tutn = do
           , QualificationUserLastRefresh   =. today
           , QualificationUserBlockedDue    =. Nothing
           ]
+        audit TransactionQualificationUserEdit
+          { transactionQualificationUser = quid
+          , transactionQualification     = tuQualification
+          , transactionUser              = qualificationUserUser
+          , transactionQualificationValidUntil = tuValidUntil
+          }
       addMessageI Success . MsgTutorialUserGrantedQualification $ Set.size selectedUsers
       redirect $ CTutorialR tid ssh csh tutn TUsersR
     (TutorialUserSendMailData{}, selectedUsers) -> do