toReq :: Request -> IO Req
toReq r = do
  b <- body r
  b `deepseq` (return $ Req (requestMethod r) (requestHeaders r) b)
  where
    body :: Request -> IO ByteString
    body = fmap fromChunks . lazyConsume . requestBody
toReq :: Request -> IO Req
toReq r = do
  b <- body r
  b `deepseq` (return $ Req (requestMethod r) (requestHeaders r) b)
  where
    body :: Request -> IO ByteString
    body = fmap fromChunks . lazyConsume . requestBody
toReq r = do
  b <- body r
  b `deepseq` (return $ Req (requestMethod r) (requestHeaders r) b)
  where
    body :: Request -> IO ByteString
    body = fmap fromChunks . lazyConsume . requestBody