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

Escape special chars in QueryParams

Browse source
This commit is contained in:
Vladislav 2022-07-20 00:34:49 +04:00
parent f0e2316895
commit b3279d9e19
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.
--