servant-snap 0.7.0.4 → 0.7.0.5

raw patch · 3 files changed

+12/−2 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +10/−0
• servant-snap.cabal +1/−1
• src/Servant/Server/Internal/ServantErr.hs +1/−1

@@ -1,3 +1,13 @@+0.7.0.5+-------++Fix throwError bug ignoring ServantError headers++0.7.0.4+-------++Fix throwError bug ignoring ServantError body+ 0.7.0.3 ------- 

@@ -1,5 +1,5 @@ name:                servant-snap-version:             0.7.0.4+version:             0.7.0.5 synopsis:            A family of combinators for defining webservices APIs and serving them description:   Interpret a Servant API as a Snap server, using any Snaplets you like.

@@ -28,7 +28,7 @@ throwError :: MonadSnap m => ServantErr -> m a throwError ServantErr{..} = do   modifyResponse $ setResponseStatus errHTTPCode (BS.pack errReasonPhrase)-  modifyResponse $ setHeader "Content-Type" "application/json"+  modifyResponse $ \r -> L.foldr (uncurry setHeader) r errHeaders   writeBS $ LBS.toStrict errBody   getResponse >>= finishWith