fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Gregor Kleen 2019-07-17 11:49:19 +02:00
parent a14152d1bc
commit 8e0c379c71
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Utils/Submission.hs
View File

@ -522,7 +522,7 @@ sinkSubmission userId mExists isUpdate = do
mapM_ throwM $ validateRating sheetType r' mapM_ throwM $ validateRating sheetType r'
when (isNothing submissionRatingTime) $ tellSt mempty { sinkSubmissionNotifyRating = Any True } when (submissionRatingDone r') $ tellSt mempty { sinkSubmissionNotifyRating = Any True }
lift $ update submissionId lift $ update submissionId
[ SubmissionRatingPoints =. ratingPoints [ SubmissionRatingPoints =. ratingPoints
, SubmissionRatingComment =. ratingComment , SubmissionRatingComment =. ratingComment