diff --git a/src/Handler/Utils/Submission.hs b/src/Handler/Utils/Submission.hs index 812c2ff66..6d6879648 100644 --- 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