nested-routes 7.2.0 → 7.2.1
raw patch · 2 files changed
+5/−5 lines, 2 filesdep ~wai-middleware-content-typedep ~wai-middleware-verbsdep ~wai-transformers
Dependency ranges changed: wai-middleware-content-type, wai-middleware-verbs, wai-transformers
Files
nested-routes.cabal view
@@ -1,5 +1,5 @@ Name: nested-routes-Version: 7.2.0+Version: 7.2.1 Author: Athan Clark <athan.clark@gmail.com> Maintainer: Athan Clark <athan.clark@gmail.com> License: BSD3@@ -54,9 +54,9 @@ , transformers , tries , unordered-containers- , wai-transformers >= 0.0.5- , wai-middleware-content-type >= 0.4.0- , wai-middleware-verbs >= 0.3.0+ , wai-transformers >= 0.0.7+ , wai-middleware-content-type >= 0.4.1+ , wai-middleware-verbs >= 0.3.1 Test-Suite test
src/Web/Routes/Nested/Types.hs view
@@ -119,7 +119,7 @@ -- is satisfiable (i.e. @Accept@ headers are O.K., etc.) action :: Monad m => ActionT m () -> MiddlewareT m action xs app req respond = do- vmap <- execVerbListenerT (mapVerbs fileExtsToMiddleware xs)+ vmap <- fmap fileExtsToMiddleware <$> execVerbListenerT xs case lookupVerb (getVerb req) vmap of Nothing -> app req respond Just mid -> mid app req respond