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

Stop emitting SubmissionFilesIgnored when nothing was ignored

Browse Source
This commit is contained in:
Gregor Kleen 2018-07-22 17:44:52 +02:00
parent e7e3404de0
commit b80f9e79e4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -235,8 +235,9 @@ extractRatingsMsg = do
ignored' <- filterSubmission `fuseUpstream` Rating.extractRatings ignored' <- filterSubmission `fuseUpstream` Rating.extractRatings
let ignored :: Set (Either CryptoFileNameSubmission FilePath) let ignored :: Set (Either CryptoFileNameSubmission FilePath)
ignored = Right `Set.map` ignored' ignored = Right `Set.map` ignored'
mr <- (toHtml . ) <$> getMessageRender unless (null ignored) $ do
addMessage "warning" =<< withUrlRenderer ($(ihamletFile "templates/messages/submissionFilesIgnored.hamlet") mr) mr <- (toHtml . ) <$> getMessageRender
addMessage "warning" =<< withUrlRenderer ($(ihamletFile "templates/messages/submissionFilesIgnored.hamlet") mr)
sinkSubmission :: UserId sinkSubmission :: UserId
-> Either SheetId SubmissionId -> Either SheetId SubmissionId