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

minor cleanup

Browse Source
This commit is contained in:
Gregor Kleen 2017-10-10 12:37:24 +02:00
parent 00c0e1fbfe
commit 9dfe26b6c9
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Handler/Utils/Zip/Rating.hs
View File

@ -123,7 +123,6 @@ parseRating input = do
extractRatings :: MonadThrow m => (FilePath -> Maybe SubmissionId) -> Conduit File m (Either File (SubmissionId, Rating')) extractRatings :: MonadThrow m => (FilePath -> Maybe SubmissionId) -> Conduit File m (Either File (SubmissionId, Rating'))
extractRatings isRating = void . runMaybeT $ do extractRatings isRating = void . runMaybeT $ do
f@(File{..}) <- MaybeT await f@(File{..}) <- MaybeT await
lift $ case () of lift $ case () of
_ | Just sId <- isRating fileTitle _ | Just sId <- isRating fileTitle
, Just content' <- fileContent , Just content' <- fileContent