put "http://s3.example.com/bucket42/object149" "text/plain" (fileBody "hello.txt") (\p i -> do putStr $ show p Streams.connect i stdout)
i <- getStreamFromVault -- magic, clearly sendRequest c q (inputStreamBody i)This function maps "Builder.fromByteString" over the input, which will be efficient if the ByteString chunks are large.