minor cleanup
This commit is contained in:
parent
00c0e1fbfe
commit
9dfe26b6c9
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user