diff --git a/src/Handler/Utils/Zip/Rating.hs b/src/Handler/Utils/Zip/Rating.hs index 535d54014..4f08c8db1 100644 --- a/src/Handler/Utils/Zip/Rating.hs +++ b/src/Handler/Utils/Zip/Rating.hs @@ -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