git.iko.soy/typeable/wai
on master help sign in
[wai-extra] Set `ChunkedBody` for `srequest`, fixes #652
46f9d24Jeroen Bransen
wai-extra/Network/Wai/Test.hs+1
compare with master
unifiedsplit
@@ -176,6 +176,7 @@ srequest (SRequest req bod) = do
176 case bss of
176 case bss of
177 [] -> ([], S.empty)
177 [] -> ([], S.empty)
178 x:y -> (y, x)
178 x:y -> (y, x)
179+ , requestBodyLength = ChunkedBody
179 }
180 }
180 req'' <- addCookiesToRequest req'
181 req'' <- addCookiesToRequest req'
181 response <- liftIO $ do
182 response <- liftIO $ do