@@ -15,9 +15,8 @@ import Servant
15import Servant.API.ContentTypes (AllMimeRender (..))
15import Servant.API.ContentTypes (AllMimeRender (..))
16import Servant.Client (BaseUrl (..), Scheme (..))
16import Servant.Client (BaseUrl (..), Scheme (..))
17import Test.QuickCheck (Arbitrary (..), Gen, elements, oneof)
17import Test.QuickCheck (Arbitrary (..), Gen, elements, oneof)
18−#if MIN_VERSION_servant(0,8,0)
18+
19import qualified Data.ByteString as BS
19import qualified Data.ByteString as BS
23class HasGenRequest a where
22class HasGenRequest a where
@@ -120,9 +119,8 @@ instance (KnownSymbol x, HasGenRequest b)
120 genRequest _ = do
119 genRequest _ = do
121 old' <- old
120 old' <- old
122 return $ \burl -> let r = old' burl
121 return $ \burl -> let r = old' burl
123− newExpr = param <> "="
124 qs = queryString r in r {
122 qs = queryString r in r {
125− queryString = if BS.null qs then newExpr else newExpr <> "&" <> qs }
123+ queryString = if BS.null qs then param else param <> "&" <> qs }
127 old = genRequest (Proxy :: Proxy b)
125 old = genRequest (Proxy :: Proxy b)
128 param = cs $ symbolVal (Proxy :: Proxy x)
126 param = cs $ symbolVal (Proxy :: Proxy x)