fix(submissions): only notify submittors if rating is done

2019-07-17 11:49:19 +02:00 · 2019-07-17 11:49:19 +02:00 · 8e0c379c71
commit 8e0c379c71
parent a14152d1bc
1 changed files with 1 additions and 1 deletions
--- a/src/Handler/Utils/Submission.hs
+++ b/src/Handler/Utils/Submission.hs
@ -522,7 +522,7 @@ sinkSubmission userId mExists isUpdate = do
  
          mapM_ throwM $ validateRating sheetType r'

-          when (isNothing submissionRatingTime) $ tellSt mempty { sinkSubmissionNotifyRating = Any True }
+          when (submissionRatingDone r') $ tellSt mempty { sinkSubmissionNotifyRating = Any True }
          lift $ update submissionId
            [ SubmissionRatingPoints  =. ratingPoints
            , SubmissionRatingComment =. ratingComment