wai-middleware-verbs 0.0.3 → 0.0.4

raw patch · 2 files changed

+8/−1 lines, 2 files

Files

• src/Network/Wai/Middleware/Verbs.hs +7/−0
• wai-middleware-verbs.cabal +1/−1

@@ -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 

@@ -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