diff --git a/src/Handler/Submission.hs b/src/Handler/Submission.hs index 3077a1554..2f7d5404d 100644 --- a/src/Handler/Submission.hs +++ b/src/Handler/Submission.hs @@ -481,6 +481,7 @@ submissionHelper tid ssh csh shn mcid = do E.on $ f1 E.?. FileTitle E.==. f2 E.?. FileTitle E.&&. sf1 E.?. SubmissionFileSubmission E.==. sf2 E.?. SubmissionFileSubmission E.&&. sf1 E.?. SubmissionFileId E.!=. sf2 E.?. SubmissionFileId + E.&&. sf2 E.?. SubmissionFileIsDeletion E.==. E.val (Just False) E.on $ f1 E.?. FileId E.==. sf1 E.?. SubmissionFileFile E.where_ $ (sf1 E.?. SubmissionFileIsUpdate E.==. E.val (Just False) E.||. E.isNothing (sf1 E.?. SubmissionFileIsUpdate))