git.iko.soy/gogol
on develop help sign in
Constructing RequestBody from core Body
208c39eBrendan Hay
gogol/gogol.cabal+1−2
compare with develop
unifiedsplit
@@ -36,7 +36,6 @@ library
36
36
37 build-depends:
37 build-depends:
38 base >= 4.7 && < 5
38 base >= 4.7 && < 5
39− , conduit >= 1.1
40 , data-default-class >= 0.0.1
39 , data-default-class >= 0.0.1
41 , exceptions >= 0.6
40 , exceptions >= 0.6
42 , gogol-core == 0.0.1.*
41 , gogol-core == 0.0.1.*
@@ -49,4 +48,4 @@ library
49 , resourcet >= 1.1
48 , resourcet >= 1.1
50 , text >= 1.1
49 , text >= 1.1
51 , transformers >= 0.2
50 , transformers >= 0.2
52− , transformers-base >= 0.4
51+ , transformers-base >= 0.4
gogol/src/Network/Google/Internal/HTTP.hs+2−2
@@ -22,8 +22,8 @@ import qualified Data.Text.Lazy.Builder as Build
22import GHC.Exts (toList)
22import GHC.Exts (toList)
23import Network.Google.Env (Env (..))
23import Network.Google.Env (Env (..))
24import Network.Google.Types
24import Network.Google.Types
25+import qualified Network.HTTP.Client.Conduit as Client
25import Network.HTTP.Conduit
26import Network.HTTP.Conduit
26−import qualified Network.HTTP.Conduit as Client
27import Network.HTTP.Media
27import Network.HTTP.Media
28import Network.HTTP.Types
28import Network.HTTP.Types
29
29
@@ -66,7 +66,7 @@ perform Env{..} x = catches go handlers
66 | Just (t, _) <- _rqBody = ((hContentType, renderHeader t) :)
66 | Just (t, _) <- _rqBody = ((hContentType, renderHeader t) :)
67 | otherwise = id
67 | otherwise = id
68
68
69− body | Just (_, b) <- _rqBody = b
69+ body | Just (_, b) <- _rqBody = Client.requestBodySourceChunked b
70 | otherwise = mempty
70 | otherwise = mempty
71
71
72 path = Text.encodeUtf8
72 path = Text.encodeUtf8