eeva
/
servant
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge b3279d9e19 into a2e003367d

This commit is contained in:
Vladislav Lagunov 2023-02-15 07:07:28 +01:00 committed by GitHub
parent a2e003367d b3279d9e19
commit ca004de99a
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
servant-client-core/src/Servant/Client/Core/Request.hs
View File

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