master..1833ef0 · typeable/servant

git.iko.soy/typeable/servant

2 files changed+7−4

unifiedsplit

servant-auth/servant-auth-swagger/servant-auth-swagger.cabal+4

@@ -38,6 +38,8 @@ library

3838 , servant >= 0.13 && < 0.20

3939 , servant-auth == 0.4.*

4040 , lens >= 4.16.1 && < 5.2

41+ if impl(ghc >= 9)

42+ buildable: False

4143 exposed-modules:

4244 Servant.Auth.Swagger

4345 default-language: Haskell2010

@@ -59,6 +61,8 @@ test-suite spec

5961 , servant

6062 , servant-auth

6163 , lens

64+ if impl(ghc >= 9)

65+ buildable: False

6266

6367 -- test dependencies

6468 build-depends:

servant-client-core/src/Servant/Client/Core/Request.hs+3−4

@@ -51,9 +51,9 @@ import Network.HTTP.Media

5151 (MediaType)

5252import Network.HTTP.Types

5353 (Header, HeaderName, HttpVersion (..), Method, QueryItem,

54− http11, methodGet, urlEncodeBuilder)

54+ http11, methodGet)

5555import Servant.API

56− (ToHttpApiData, toEncodedUrlPiece, toQueryParam, toHeader, SourceIO)

56+ (ToHttpApiData, toEncodedUrlPiece, toHeader, SourceIO)

5757

5858import Servant.Client.Core.Internal (mediaTypeRnf)

5959

@@ -165,8 +165,7 @@ appendToQueryString pname pvalue req

165165-- | Encode a query parameter value.

166166--

167167encodeQueryParamValue :: ToHttpApiData a => a -> BS.ByteString

168−encodeQueryParamValue = LBS.toStrict . Builder.toLazyByteString

169− . urlEncodeBuilder True . encodeUtf8 . toQueryParam

168+encodeQueryParamValue = LBS.toStrict . Builder.toLazyByteString . toEncodedUrlPiece

170169

171170-- | Add header to the request being constructed.

172171--