diff --git a/servant/CHANGELOG.md b/servant/CHANGELOG.md index bff2ed3e..f5973555 100644 --- a/servant/CHANGELOG.md +++ b/servant/CHANGELOG.md @@ -2,7 +2,7 @@ next ---- * Add `CaptureAll` combinator. Captures all of the remaining segments in a URL. -* replace use of `ToByteString` with `HttpApiData` for `GetHeaders` +* BACKWARDS INCOMPATIBLE replace use of `ToFromByteString` with `To/FromHttpApiData` for `GetHeaders/BuildHeadersTo` 0.8 --- diff --git a/servant/servant.cabal b/servant/servant.cabal index 56a2cc6e..d3607935 100644 --- a/servant/servant.cabal +++ b/servant/servant.cabal @@ -1,5 +1,5 @@ name: servant -version: 0.8.1 +version: 0.8 synopsis: A family of combinators for defining webservices APIs description: A family of combinators for defining webservices APIs and serving them diff --git a/servant/src/Servant/API/ResponseHeaders.hs b/servant/src/Servant/API/ResponseHeaders.hs index 1ddba9d0..99bd72b6 100644 --- a/servant/src/Servant/API/ResponseHeaders.hs +++ b/servant/src/Servant/API/ResponseHeaders.hs @@ -31,8 +31,8 @@ module Servant.API.ResponseHeaders ) where import Data.ByteString.Char8 as BS (pack, unlines, init) -import Web.HttpApiData (ToHttpApiData,toHeader - ,FromHttpApiData,parseHeader) +import Web.HttpApiData (ToHttpApiData, toHeader + ,FromHttpApiData, parseHeader) import qualified Data.CaseInsensitive as CI import Data.Proxy import GHC.TypeLits (KnownSymbol, symbolVal)