git.iko.soy/typeable/servant
on master help sign in
swap
b3279d94 ahead, 0 behind
2 files changed+5−8
since splitsnapshots
unifiedsplit
servant-auth/servant-auth-swagger/servant-auth-swagger.cabal+1−5 servant-client-core/src/Servant/Client/Core/Request.hs+4−3
servant-auth/servant-auth-swagger/servant-auth-swagger.cabal+1−5
@@ -31,15 +31,13 @@ library
3131 default-extensions: ConstraintKinds DataKinds DefaultSignatures DeriveFoldable DeriveFunctor DeriveGeneric DeriveTraversable FlexibleContexts FlexibleInstances FunctionalDependencies GADTs KindSignatures MultiParamTypeClasses OverloadedStrings RankNTypes ScopedTypeVariables TypeFamilies TypeOperators
3232 ghc-options: -Wall
3333 build-depends:
34− base >= 4.10 && < 4.16
34+ base >= 4.10 && < 4.17
3535 , text >= 1.2.3.0 && < 2.1
3636 , servant-swagger >= 1.1.5 && < 2
3737 , swagger2 >= 2.2.2 && < 3
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
4341 exposed-modules:
4442 Servant.Auth.Swagger
4543 default-language: Haskell2010
@@ -61,8 +59,6 @@ test-suite spec
6159 , servant
6260 , servant-auth
6361 , lens
64− if impl(ghc >= 9)
65− buildable: False
6662
6763 -- test dependencies
6864 build-depends:
servant-client-core/src/Servant/Client/Core/Request.hs+4−3
@@ -51,9 +51,9 @@ import Network.HTTP.Media
5151 (MediaType)
5252import Network.HTTP.Types
5353 (Header, HeaderName, HttpVersion (..), Method, QueryItem,
54− http11, methodGet)
54+ http11, methodGet, urlEncodeBuilder)
5555import Servant.API
56− (ToHttpApiData, toEncodedUrlPiece, toHeader, SourceIO)
56+ (ToHttpApiData, toEncodedUrlPiece, toQueryParam, toHeader, SourceIO)
5757
5858import Servant.Client.Core.Internal (mediaTypeRnf)
5959
@@ -165,7 +165,8 @@ appendToQueryString pname pvalue req
165165-- | Encode a query parameter value.
166166--
167167encodeQueryParamValue :: ToHttpApiData a => a -> BS.ByteString
168−encodeQueryParamValue = LBS.toStrict . Builder.toLazyByteString . toEncodedUrlPiece
168+encodeQueryParamValue = LBS.toStrict . Builder.toLazyByteString
169+ . urlEncodeBuilder True . encodeUtf8 . toQueryParam
169170
170171-- | Add header to the request being constructed.
171172--