diff --git a/src/Webcrank.hs b/src/Webcrank.hs
--- a/src/Webcrank.hs
+++ b/src/Webcrank.hs
@@ -20,6 +20,8 @@
   , werror
   , werrorWith
   , getDispatchPath
+  , ReqData
+  , HasReqData
     -- * Charsets
   , Charset
   , CharsetsProvided(..)
@@ -30,10 +32,16 @@
   , putResponseHeader
     -- * Body
   , Body
-  , textBody
+  , lazyByteStringBody
+  , byteStringBody
   , lazyTextBody
+  , textBody
   , strBody
+  , writeBody
   , writeLBS
+  , writeBS
+  , writeLT
+  , writeText
   , writeStr
     -- * Extra convience (re)exports
   , module Network.HTTP.Date
@@ -171,12 +179,54 @@
 strBody = lazyTextBody . LT.pack
 {-# INLINE strBody #-}
 
--- | Set the response body from a @String@
+-- | Create a response @Body@ from a lazy @ByteString@.
+lazyByteStringBody :: LB.ByteString -> Body
+lazyByteStringBody = id
+{-# INLINE lazyByteStringBody #-}
+
+-- | Create a response @Body@ from a @ByteString@.
+byteStringBody :: ByteString -> Body
+byteStringBody = lazyByteStringBody . LB.fromStrict
+{-# INLINE byteStringBody #-}
+
+-- | Use the @Text@ as the response body.
+writeText
+  :: (MonadState s m, HasReqData s)
+  => Text
+  -> m ()
+writeText = writeBody . textBody
+{-# INLINE writeText #-}
+
+-- | Use the lazy @Text@ as the response body.
+writeLT
+  :: (MonadState s m, HasReqData s)
+  => LT.Text
+  -> m ()
+writeLT = writeBody . lazyTextBody
+{-# INLINE writeLT #-}
+
+-- | Use the @ByteString@ as the response body.
+writeBS
+  :: (MonadState s m, HasReqData s)
+  => ByteString
+  -> m ()
+writeBS = writeBody . byteStringBody
+{-# INLINE writeBS #-}
+
+-- | Use the lazy @ByteString@ as the response body.
+writeLBS
+  :: (MonadState s m, HasReqData s)
+  => LB.ByteString
+  -> m ()
+writeLBS = writeBody
+{-# INLINE writeLBS #-}
+
+-- | Use the @String@ as the response body.
 writeStr
   :: (MonadState s m, HasReqData s)
   => String
   -> m ()
-writeStr = assign reqDataRespBody . Just . strBody
+writeStr = writeBody . strBody
 {-# INLINE writeStr #-}
 
 -- | The “local” path of the resource URI; the part
diff --git a/src/Webcrank/Internal/ReqData.hs b/src/Webcrank/Internal/ReqData.hs
--- a/src/Webcrank/Internal/ReqData.hs
+++ b/src/Webcrank/Internal/ReqData.hs
@@ -71,10 +71,11 @@
   -> m ()
 putResponseLocation = putResponseHeader hLocation
 
--- | Use the lazy @ByteString@ as the response body.
-writeLBS
+-- | Use the @Body@ as the response body.
+writeBody
   :: (MonadState s m, HasReqData s)
   => LB.ByteString
   -> m ()
-writeLBS = (reqDataRespBody ?=)
+writeBody = (reqDataRespBody ?=)
+{-# INLINE writeBody #-}
 
diff --git a/webcrank.cabal b/webcrank.cabal
--- a/webcrank.cabal
+++ b/webcrank.cabal
@@ -1,5 +1,5 @@
 name:               webcrank
-version:            0.2.1
+version:            0.2.2
 license:            BSD3
 license-file:       LICENSE
 author:             Mark Hibberd <mark@hibberd.id.au>