wai-transformers 0.0.1 → 0.0.2
raw patch · 2 files changed
+10/−1 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Network.Wai.Trans: runApplicationT :: (forall a. m a -> IO a) -> ApplicationT m -> Application
+ Network.Wai.Trans: runMiddlewareT :: MonadIO m => (forall a. m a -> IO a) -> MiddlewareT m -> Middleware
Files
- src/Network/Wai/Trans.hs +9/−0
- wai-transformers.cabal +1/−1
src/Network/Wai/Trans.hs view
@@ -1,6 +1,7 @@ {-# LANGUAGE FlexibleContexts , OverloadedStrings+ , Rank2Types #-} -- |@@ -23,6 +24,8 @@ , MiddlewareT , liftApplication , liftMiddleware+ , runApplicationT+ , runMiddlewareT ) where @@ -41,4 +44,10 @@ liftMiddleware :: MonadIO m => (ApplicationT m -> Application) -> Middleware -> MiddlewareT m liftMiddleware runAppT mid app = liftApplication $ mid (runAppT app)++runApplicationT :: (forall a. m a -> IO a) -> ApplicationT m -> Application+runApplicationT run app req respond = run (app req respond)++runMiddlewareT :: MonadIO m => (forall a. m a -> IO a) -> MiddlewareT m -> Middleware+runMiddlewareT run mid app req respond = run (mid (liftApplication app) req respond)
wai-transformers.cabal view
@@ -1,5 +1,5 @@ Name: wai-transformers-Version: 0.0.1+Version: 0.0.2 Author: Athan Clark <athan.clark@gmail.com> Maintainer: Athan Clark <athan.clark@gmail.com> License: BSD3