wai-middleware-content-type 0.0.3 → 0.0.3.1
raw patch · 4 files changed
+7/−5 lines, 4 filesdep ~wai-transformersPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: wai-transformers
API changes (from Hackage documentation)
Files
- src/Network/Wai/Middleware/ContentType.hs +3/−1
- src/Network/Wai/Middleware/ContentType/Builder.hs +1/−1
- src/Network/Wai/Middleware/ContentType/ByteString.hs +1/−1
- wai-middleware-content-type.cabal +2/−2
src/Network/Wai/Middleware/ContentType.hs view
@@ -35,6 +35,7 @@ type AcceptHeader = BS.ByteString +-- | Turn a map of content types to middlewares, into a middleware. fileExtsToMiddleware :: MonadIO m => FileExtListenerT (MiddlewareT m) m () -> MiddlewareT m@@ -46,7 +47,8 @@ m <- mMiddleware return $ m app req respond -+-- | Given an HTTP @Accept@ header and a content type to base lookups off of, and+-- a map of responses, find a response. lookupResponse :: Monad m => Maybe AcceptHeader -> FileExt
src/Network/Wai/Middleware/ContentType/Builder.hs view
@@ -35,7 +35,7 @@ builderStatusWith f e s hs i = let r = builderOnlyStatus s hs i in FileExtListenerT $ tell $- FileExts $ Map.singleton e $ \_ _ respond -> liftIO $ respond $ f r+ FileExts $ Map.singleton e $ \_ _ respond -> respond (f r)
src/Network/Wai/Middleware/ContentType/ByteString.hs view
@@ -38,7 +38,7 @@ -> FileExtListenerT (MiddlewareT m) m () bytestringStatusWith f fe s hs i = do r <- lift $ U.bytestring s hs i- middleware fe $ \_ _ respond -> liftIO $ respond $ f r+ middleware fe $ \_ _ respond -> respond (f r) -- * Raw @Response@s
wai-middleware-content-type.cabal view
@@ -1,5 +1,5 @@ Name: wai-middleware-content-type-Version: 0.0.3+Version: 0.0.3.1 Author: Athan Clark <athan.clark@gmail.com> Maintainer: Athan Clark <athan.clark@gmail.com> License: BSD3@@ -41,7 +41,7 @@ , text , transformers , wai- , wai-transformers+ , wai-transformers >= 0.0.3 , wai-util Source-Repository head