@@ -22,8 +22,8 @@ import qualified Data.Text.Lazy.Builder as Build
2222import GHC.Exts (toList)
2323import Network.Google.Env (Env (..))
2424import Network.Google.Types
25+import qualified Network.HTTP.Client.Conduit as Client
2526import Network.HTTP.Conduit
26−import qualified Network.HTTP.Conduit as Client
2727import Network.HTTP.Media
2828import Network.HTTP.Types
2929
@@ -66,7 +66,7 @@ perform Env{..} x = catches go handlers
6666 | Just (t, _) <- _rqBody = ((hContentType, renderHeader t) :)
6767 | otherwise = id
6868
69− body | Just (_, b) <- _rqBody = b
69+ body | Just (_, b) <- _rqBody = Client.requestBodySourceChunked b
7070 | otherwise = mempty
7171
7272 path = Text.encodeUtf8