diff --git a/http-kit.cabal b/http-kit.cabal
--- a/http-kit.cabal
+++ b/http-kit.cabal
@@ -1,5 +1,5 @@
 name:             http-kit
-version:          0.2.0
+version:          0.2.1
 synopsis:         A low-level HTTP library
 description:      A low-level HTTP library that can be used to build more
                   sophisticated applications on top of it.
diff --git a/src/Network/HTTP/Toolkit.hs b/src/Network/HTTP/Toolkit.hs
--- a/src/Network/HTTP/Toolkit.hs
+++ b/src/Network/HTTP/Toolkit.hs
@@ -15,6 +15,7 @@
 , readResponseWithLimit
 , readResponse
 , sendResponse
+, simpleResponse
 
 -- * Handling message bodies
 , BodyReader
diff --git a/src/Network/HTTP/Toolkit/Body.hs b/src/Network/HTTP/Toolkit/Body.hs
--- a/src/Network/HTTP/Toolkit/Body.hs
+++ b/src/Network/HTTP/Toolkit/Body.hs
@@ -101,6 +101,9 @@
 
 -- | Read input from provided `BodyReader` and wirte it to provided sink until
 -- all input has been consumed.
+--
+-- /Note:/ The first argument to this function is used to send the data.  For
+-- space efficiency it may be called multiple times.
 sendBody :: (ByteString -> IO ()) -> BodyReader -> IO ()
 sendBody send body = while (not . B.null) body send
 
diff --git a/src/Network/HTTP/Toolkit/Header.hs b/src/Network/HTTP/Toolkit/Header.hs
--- a/src/Network/HTTP/Toolkit/Header.hs
+++ b/src/Network/HTTP/Toolkit/Header.hs
@@ -110,7 +110,10 @@
       | otherwise = bs
 
 -- | Send given start-line and message headers.
-sendHeader :: (ByteString -> IO()) -> ByteString -> [Header] -> IO ()
+--
+-- /Note:/ The first argument to this function is used to send the data.  For
+-- space efficiency it may be called multiple times.
+sendHeader :: (ByteString -> IO ()) -> ByteString -> [Header] -> IO ()
 sendHeader send startLine headers = do
   send startLine
   send "\r\n"
diff --git a/src/Network/HTTP/Toolkit/Request.hs b/src/Network/HTTP/Toolkit/Request.hs
--- a/src/Network/HTTP/Toolkit/Request.hs
+++ b/src/Network/HTTP/Toolkit/Request.hs
@@ -71,7 +71,10 @@
 formatRequestLine method path = B.unwords [method, path, "HTTP/1.1"]
 
 -- | Send an HTTP request.
-sendRequest :: (ByteString -> IO()) -> Request BodyReader -> IO ()
+--
+-- /Note:/ The first argument to this function is used to send the data.  For
+-- space efficiency it may be called multiple times.
+sendRequest :: (ByteString -> IO ()) -> Request BodyReader -> IO ()
 sendRequest send (Request method path headers body) = do
   sendHeader send (formatRequestLine method path) headers
   sendBody send body
diff --git a/src/Network/HTTP/Toolkit/Response.hs b/src/Network/HTTP/Toolkit/Response.hs
--- a/src/Network/HTTP/Toolkit/Response.hs
+++ b/src/Network/HTTP/Toolkit/Response.hs
@@ -5,6 +5,7 @@
 , readResponseWithLimit
 , parseStatusLine
 
+, simpleResponse
 , sendResponse
 , formatStatusLine
 
@@ -81,7 +82,22 @@
 formatStatusLine :: Status -> ByteString
 formatStatusLine status = B.concat ["HTTP/1.1 ", B.pack $ show (statusCode status), " ", statusMessage status]
 
+-- | Send a simple HTTP response.  The provided `ByteString` is used as the
+-- message body.  A suitable @Content-Length@ header is added to the specified
+-- list of headers.
+--
+-- /Note:/ The first argument to this function is used to send the data.  For
+-- space efficiency it may be called multiple times.
+simpleResponse :: (ByteString -> IO ()) -> Status -> [Header] -> ByteString -> IO ()
+simpleResponse send status headers_ body = do
+  fromByteString body >>= sendResponse send . Response status headers
+  where
+    headers = ("Content-Length", B.pack . show . B.length $ body) : headers_
+
 -- | Send an HTTP response.
+--
+-- /Note:/ The first argument to this function is used to send the data.  For
+-- space efficiency it may be called multiple times.
 sendResponse :: (ByteString -> IO ()) -> (Response BodyReader) -> IO ()
 sendResponse send (Response status headers body) = do
   sendHeader send (formatStatusLine status) headers