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

Merge b3279d9e19 into a2e003367d

Browse Source
This commit is contained in:
Vladislav Lagunov 2023-02-15 07:07:28 +01:00 committed by GitHub
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) (MediaType)
import Network.HTTP.Types import Network.HTTP.Types
(Header, HeaderName, HttpVersion (..), Method, QueryItem, (Header, HeaderName, HttpVersion (..), Method, QueryItem,
http11, methodGet) http11, methodGet, urlEncodeBuilder)
import Servant.API import Servant.API
(ToHttpApiData, toEncodedUrlPiece, toHeader, SourceIO) (ToHttpApiData, toEncodedUrlPiece, toQueryParam, toHeader, SourceIO)
import Servant.Client.Core.Internal (mediaTypeRnf) import Servant.Client.Core.Internal (mediaTypeRnf)
@ -165,7 +165,8 @@ appendToQueryString pname pvalue req
-- | Encode a query parameter value. -- | Encode a query parameter value.
-- --
encodeQueryParamValue :: ToHttpApiData a => a -> BS.ByteString 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. -- | Add header to the request being constructed.
-- --