Remove binary data test case

And add changelog entry.

Author: jkarni

changelog.d/1584

@@ -0,0 +1,10 @@
+synopsis:  Escape special chars in QueryParams.
+prs: #1597
+issues: #1584
+
+description: {
+
+Escape special chars in QueryParam (':@&=+$') in servant-client. Note that this
+mean binary data will not work as is, and so reverts the functionality in #1432.
+
+}

servant-client/test/Servant/SuccessSpec.hs

@@ -101,11 +101,6 @@ successSpec = beforeAll (startWaiApp server) $ afterAll endWaiApp $ do
       Left (FailureResponse _ r) <- runClient (getQueryParam (Just "bob")) baseUrl
       responseStatusCode r `shouldBe` HTTP.Status 400 "bob not found"
 
-    it "Servant.API.QueryParam binary data" $ \(_, baseUrl) -> do
-      let payload = BS.pack [0, 1, 2, 4, 8, 16, 32, 64, 128]
-          apiCall = getQueryParamBinary (Just $ UrlEncodedByteString payload) HTTP.methodGet
-      (show +++ responseBody) <$> runClient apiCall baseUrl `shouldReturn` Right (BL.fromStrict payload)
-
     it "Servant.API.QueryParam.QueryParams" $ \(_, baseUrl) -> do
       left show <$> runClient (getQueryParams []) baseUrl `shouldReturn` Right []
       left show <$> runClient (getQueryParams ["alice", "bob"]) baseUrl