@@ -51,9 +51,9 @@ import Network.HTTP.Media
51 (MediaType)
51 (MediaType)
52import Network.HTTP.Types
52import Network.HTTP.Types
53 (Header, HeaderName, HttpVersion (..), Method, QueryItem,
53 (Header, HeaderName, HttpVersion (..), Method, QueryItem,
54− http11, methodGet, urlEncodeBuilder)
54+ http11, methodGet)
55import Servant.API
55import Servant.API
56− (ToHttpApiData, toEncodedUrlPiece, toQueryParam, toHeader, SourceIO)
56+ (ToHttpApiData, toEncodedUrlPiece, toHeader, SourceIO)
58import Servant.Client.Core.Internal (mediaTypeRnf)
58import Servant.Client.Core.Internal (mediaTypeRnf)
@@ -165,8 +165,7 @@ appendToQueryString pname pvalue req
165-- | Encode a query parameter value.
165-- | Encode a query parameter value.
167encodeQueryParamValue :: ToHttpApiData a => a -> BS.ByteString
167encodeQueryParamValue :: ToHttpApiData a => a -> BS.ByteString
168−encodeQueryParamValue = LBS.toStrict . Builder.toLazyByteString
168+encodeQueryParamValue = LBS.toStrict . Builder.toLazyByteString . toEncodedUrlPiece
169− . urlEncodeBuilder True . encodeUtf8 . toQueryParam
171-- | Add header to the request being constructed.
170-- | Add header to the request being constructed.