Merge branch 'master' into text-jsstring
commitd3af37b3d651b32fa1ba450d37f1261954a22006
authorGreg Hale <imalsogreg@gmail.com>
dateTue 26 Sep 2017, 00:24 (9 years ago)
parent19d68d32bd3c07
src/Servant/Common/Req.hs+1−1
@@ -190,7 +190,7 @@ reqToReflexRequest reqMeth reqHost req =
190190 queryPartString (pName, qp) = case qp of
191191 QueryPartParam p -> ffor p $ \case
192192 Left e -> Just (Left e)
193− Right (Just a) -> Just (Right $ pName <> "=" <> a)
193+ Right (Just a) -> Just (Right $ pName <> "=" <> escape a)
194194 Right Nothing -> Nothing
195195 QueryPartParams ps -> ffor ps $ \pStrings ->
196196 if null pStrings