From 9dfe26b6c916bdd1ea88299ca4d42899eeaa39ec Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 10 Oct 2017 12:37:24 +0200 Subject: [PATCH] minor cleanup --- src/Handler/Utils/Zip/Rating.hs | 1 - 1 file changed, 1 deletion(-) 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