From 6aac0aac65dbe7ea02fa1609d49a71edb9a0ff52 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <vaupel.sarah@campus.lmu.de>
Date: Thu, 29 Aug 2019 11:40:16 +0200
Subject: [PATCH] chore(audit): audit assign submissions to corrector

---
 src/Audit/Types.hs         | 4 ++++
 src/Handler/Corrections.hs | 4 +++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/Audit/Types.hs b/src/Audit/Types.hs
index 5e0deef1d..c9e48beff 100644
--- a/src/Audit/Types.hs
+++ b/src/Audit/Types.hs
@@ -48,6 +48,10 @@ data Transaction
     , transactionUser   :: UserId
     , transactionCourseApplication :: CourseApplicationId
     }
+  | TransactionSubmissionsCorrectorAssigned
+    { transactionSubmissions :: [SubmissionId]
+    , transactionUser        :: UserId
+    }
   | TransactionSubmissionCorrectorUpdated
     { transactionSubmission :: SubmissionId
     , transactionMbUser     :: Maybe UserId
diff --git a/src/Handler/Corrections.hs b/src/Handler/Corrections.hs
index b366885d3..240aeb720 100644
--- a/src/Handler/Corrections.hs
+++ b/src/Handler/Corrections.hs
@@ -459,11 +459,13 @@ correctionsR whereClause displayColumns dbtFilterUI psValidator actions = do
               content = Right $(widgetFile "messages/submissionsAssignUnauthorized")
           addMessageModal Warning trigger content
         unless (null unassignedAuth) $ do
-          num <- updateWhereCount [SubmissionId <-. Set.toList unassignedAuth]
+          let sIds = Set.toList unassignedAuth
+          num <- updateWhereCount [SubmissionId <-. sIds]
                     [ SubmissionRatingBy       =. Just uid
                     , SubmissionRatingAssigned =. Just now -- save, since only applies to unassigned
                     ]
           addMessageI Success $ MsgUpdatedAssignedCorrectorSingle num
+          audit $ TransactionSubmissionsCorrectorAssigned sIds uid
         (E.Value selfCorrectors:_) <- E.select . E.from $ \(submission `E.InnerJoin` subuser) -> do
             E.on $ submission E.^. SubmissionId E.==. subuser E.^. SubmissionUserSubmission
             E.where_ $ submission E.^. SubmissionId `E.in_` E.valList subs