diff --git a/hspec-wai.cabal b/hspec-wai.cabal
--- a/hspec-wai.cabal
+++ b/hspec-wai.cabal
@@ -1,5 +1,5 @@
 name:             hspec-wai
-version:          0.6.1
+version:          0.6.2
 license:          MIT
 license-file:     LICENSE
 copyright:        (c) 2012-2014 Fujimura Daisuke,
diff --git a/src/Test/Hspec/Wai/Internal.hs b/src/Test/Hspec/Wai/Internal.hs
--- a/src/Test/Hspec/Wai/Internal.hs
+++ b/src/Test/Hspec/Wai/Internal.hs
@@ -6,6 +6,7 @@
   WaiExpectation
 , WaiSession(..)
 , runWaiSession
+, withApplication
 , getApp
 , formatHeader
 ) where
@@ -30,6 +31,9 @@
 
 runWaiSession :: WaiSession a -> Application -> IO a
 runWaiSession = runSession . unWaiSession
+
+withApplication :: Application -> WaiSession a -> IO a
+withApplication = flip runWaiSession
 
 instance Example WaiExpectation where
   type Arg WaiExpectation = Application