Fix overlooked queryparam escaping case
commit2bd3c071d6f8ad6818d971e4cc38958f33c3ca3f
authorGreg Hale <imalsogreg@gmail.com>
dateTue 26 Sep 2017, 00:24 (9 years ago)
parent1cf61d3
src/Servant/Common/Req.hs+1−1
@@ -178,7 +178,7 @@ reqToReflexRequest reqMeth reqHost req =
178178 queryPartString (pName, qp) = case qp of
179179 QueryPartParam p -> ffor p $ \case
180180 Left e -> Just (Left e)
181− Right (Just a) -> Just (Right $ pName <> "=" <> a)
181+ Right (Just a) -> Just (Right $ pName <> "=" <> escape a)
182182 Right Nothing -> Nothing
183183 QueryPartParams ps -> ffor ps $ \pStrings ->
184184 if null pStrings