minor cleanup

This commit is contained in:
Gregor Kleen 2017-10-10 12:37:24 +02:00
parent 00c0e1fbfe
commit 9dfe26b6c9

View File

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