diff --git a/src/Network/Wai/Middleware/Verbs.hs b/src/Network/Wai/Middleware/Verbs.hs
--- a/src/Network/Wai/Middleware/Verbs.hs
+++ b/src/Network/Wai/Middleware/Verbs.hs
@@ -17,6 +17,7 @@
   , lookupVerbM
   , VerbListenerT (..)
   , execVerbListenerT
+  , mapVerbs
   , verbsToMiddleware
   , get
   , getReq
@@ -124,6 +125,12 @@
     middleware <- mMiddleware
     return $ middleware app req respond
 
+mapVerbs :: Monad m =>
+            (a -> b)
+         -> VerbListenerT a e u m () -> VerbListenerT b e u m ()
+mapVerbs f vl = do
+  vmap <- lift $ execVerbListenerT vl
+  tell' $ f <$> vmap
 
 -- * Combinators
 
diff --git a/wai-middleware-verbs.cabal b/wai-middleware-verbs.cabal
--- a/wai-middleware-verbs.cabal
+++ b/wai-middleware-verbs.cabal
@@ -1,5 +1,5 @@
 Name:                   wai-middleware-verbs
-Version:                0.0.3
+Version:                0.0.4
 Author:                 Athan Clark <athan.clark@gmail.com>
 Maintainer:             Athan Clark <athan.clark@gmail.com>
 License:                BSD3