diff --git a/src/Webby.hs b/src/Webby.hs
--- a/src/Webby.hs
+++ b/src/Webby.hs
@@ -24,6 +24,7 @@
   , params
   , request
   , requestBodyLength
+  , getRequestBodyChunkAction
 
   -- * Response modification
   , setStatus
@@ -36,6 +37,7 @@
 
   -- * Application
   , mkWebbyApp
+  , Application
 
   -- * Application context
   , WEnv
@@ -51,3 +53,5 @@
 
 import           Webby.Server
 import           Webby.Types
+
+import           Network.Wai  (Application)
diff --git a/src/Webby/Server.hs b/src/Webby/Server.hs
--- a/src/Webby/Server.hs
+++ b/src/Webby/Server.hs
@@ -9,6 +9,7 @@
 import qualified Data.List                  as L
 import qualified Data.Text                  as T
 import           Network.HTTP.Types.URI     (queryToQueryText)
+import           Network.Wai.Internal       (getRequestBodyChunk)
 import qualified System.Log.FastLogger      as FLog
 import           System.Log.FastLogger.Date (newTimeCache)
 import qualified UnliftIO.Concurrent        as Conc
@@ -99,6 +100,12 @@
 
 request :: WebbyM appEnv Request
 request = asks weRequest
+
+-- | Returns an action that returns successive chunks of the rquest
+-- body. It returns an empty bytestring after the request body is
+-- consumed.
+getRequestBodyChunkAction :: WebbyM appEnv (WebbyM appEnv ByteString)
+getRequestBodyChunkAction = (liftIO . getRequestBodyChunk) <$> asks weRequest
 
 headers :: WebbyM appEnv [Header]
 headers = requestHeaders <$> request
diff --git a/webby.cabal b/webby.cabal
--- a/webby.cabal
+++ b/webby.cabal
@@ -4,10 +4,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: dc7ce19d79dc28921965307e313bacc51c001940931db749783e1ee4e6bd5c2a
+-- hash: caf3466bf704ca914cdc5415a14e4d717e7bdb21f42b4fc2ce0869bf6309d74b
 
 name:           webby
-version:        0.1.0.2
+version:        0.1.1
 synopsis:       A super-simple web server framework
 description:    A super-simple, easy to use web server framework inspired by
                 Scotty. The goals of the project are: (1) Be easy to use (2) Allow