From f94b0f0356a5e1ab8948230f8993d07b21e59c58 Mon Sep 17 00:00:00 2001 From: Erik de Castro Lopo Date: Tue, 26 Apr 2016 19:53:57 +1000 Subject: [PATCH] Revert "Test/Util.hs: Fix redundant typeclass constraint" For ghc-7.6 and ghc-7.8 `Functor` is not a superclass of `Monad` so the `Functor` constraint cannot be removed. This reverts commit 408db96153b556a27d3d35eb33d7139acdfd2a03. --- Test/Util.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Test/Util.hs b/Test/Util.hs index 0abd009..dd0093f 100644 --- a/Test/Util.hs +++ b/Test/Util.hs @@ -164,7 +164,7 @@ httpRun req = do modifyRequest r = r { HC.redirectCount = 0 } -checkBodySize :: Monad m => DC.ResumableSource m ByteString -> Maybe Int64 -> m ByteString +checkBodySize :: (Monad f, Functor f) => DC.ResumableSource f ByteString -> Maybe Int64 -> f ByteString checkBodySize bodySrc Nothing = fmap (BS.concat . LBS.toChunks) $ bodySrc DC.$$+- CB.take 1000 checkBodySize bodySrc (Just len) = do let blockSize = 1000