diff --git a/io-streams-http.cabal b/io-streams-http.cabal
--- a/io-streams-http.cabal
+++ b/io-streams-http.cabal
@@ -1,5 +1,5 @@
 name:                io-streams-http
-version:             0.2.0.0
+version:             0.2.0.1
 synopsis:            http-client for io-streams
 description:         Thin io-streams wrapper for http-client
 license:             BSD3
diff --git a/src/System/IO/Streams/HTTP.hs b/src/System/IO/Streams/HTTP.hs
--- a/src/System/IO/Streams/HTTP.hs
+++ b/src/System/IO/Streams/HTTP.hs
@@ -23,18 +23,21 @@
 -- > module Main where
 -- > import           System.IO.Streams       ( InputStream, OutputStream )
 -- > import qualified System.IO.Streams as    Streams
--- > import           System.IO.Streams.HTTP  ( withHTTP, parseUrl, withManager )
+-- > import           System.IO.Streams.HTTP  ( withHTTP, parseUrl, withManager, stream )
 -- > import           Network.HTTP.Client.TLS ( tlsManagerSettings )
 -- > import           Network.HTTP.Client     ( responseBody )
--- > 
--- > main :: IO ()
--- > main = do
--- >  req <- parseUrl "http://www.worldslongestwebsite.com"
--- >  withManager tlsManagerSettings $ \m ->
--- >    withHTTP req m $ \resp -> do
--- >      Streams.supplyTo Streams.stdout (responseBody resp)
 -- >
---
+-- > bodyTest :: IO ()
+-- > bodyTest = do
+-- >   req <- parseUrl "https://google.com"
+-- >   let request = req { method = "POST"
+-- >                     , requestBody = stream $ Streams.fromLazyByteString "body"
+-- >                     }
+-- >   withManager tlsManagerSettings $ \m ->
+-- >     withHTTP req m $ \resp -> do
+-- >         Streams.supplyTo Streams.stdout (responseBody resp)   
+-- >
+-- >
 -- For non-streaming request bodies, study the 'RequestBody' type,
 -- which also
 -- accepts strict \/ lazy bytestrings