diff --git a/src/Handler/Utils/Submission.hs b/src/Handler/Utils/Submission.hs index 2fbfb5532..6b591928f 100644 --- a/src/Handler/Utils/Submission.hs +++ b/src/Handler/Utils/Submission.hs @@ -235,8 +235,9 @@ extractRatingsMsg = do ignored' <- filterSubmission `fuseUpstream` Rating.extractRatings let ignored :: Set (Either CryptoFileNameSubmission FilePath) ignored = Right `Set.map` ignored' - mr <- (toHtml . ) <$> getMessageRender - addMessage "warning" =<< withUrlRenderer ($(ihamletFile "templates/messages/submissionFilesIgnored.hamlet") mr) + unless (null ignored) $ do + mr <- (toHtml . ) <$> getMessageRender + addMessage "warning" =<< withUrlRenderer ($(ihamletFile "templates/messages/submissionFilesIgnored.hamlet") mr) sinkSubmission :: UserId -> Either SheetId SubmissionId