git.iko.soy/typeable/servant
on master help sign in
swap
b3279d93 ahead, 0 behind
2 files changed+4−7
since splitsnapshots
unifiedsplit
servant-auth/servant-auth-swagger/servant-auth-swagger.cabal−4 servant-client-core/src/Servant/Client/Core/Request.hs+4−3
servant-auth/servant-auth-swagger/servant-auth-swagger.cabal−4
@@ -38,8 +38,6 @@ 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
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--