@@ -108,7 +108,7 @@ data EmptyClient = EmptyClient deriving (Eq, Show, Bounded, Enum)
108108-- > (getAllBooks :<|> EmptyClient) = client myApi
109109instance HasClient m EmptyAPI where
110110 type Client m EmptyAPI = EmptyClient
111− clientWithRoute pm Proxy _ = EmptyClient
111+ clientWithRoute _pm Proxy _ = EmptyClient
112112
113113-- | If you use a 'Capture' in one of your endpoints in your API,
114114-- the corresponding querying function will automatically take
@@ -178,7 +178,7 @@ instance OVERLAPPABLE_
178178 (RunClient m ct ([H.Header], a), MimeUnrender ct a, ReflectMethod method, cts' ~ (ct ': cts)
179179 ) => HasClient m (Verb method status cts' a) where
180180 type Client m (Verb method status cts' a) = m a
181− clientWithRoute pm Proxy req = do
181+ clientWithRoute _pm Proxy req = do
182182 (_hdrs, a) :: ([H.Header], a) <- runRequest (Proxy :: Proxy ct) method req
183183 return a
184184 where method = reflectMethod (Proxy :: Proxy method)
@@ -188,7 +188,7 @@ instance OVERLAPPING_
188188 , ReflectMethod method) => HasClient m (Verb method status cts NoContent) where
189189 type Client m (Verb method status cts NoContent)
190190 = m NoContent
191− clientWithRoute pm Proxy req = do
191+ clientWithRoute _pm Proxy req = do
192192 _hdrs :: [H.Header] <- runRequest (Proxy :: Proxy NoContent) method req
193193 return NoContent
194194 where method = reflectMethod (Proxy :: Proxy method)
@@ -200,7 +200,7 @@ instance OVERLAPPING_
200200 ) => HasClient m (Verb method status cts' (Headers ls a)) where
201201 type Client m (Verb method status cts' (Headers ls a))
202202 = m (Headers ls a)
203− clientWithRoute pm Proxy req = do
203+ clientWithRoute _pm Proxy req = do
204204 let method = reflectMethod (Proxy :: Proxy method)
205205 (hdrs, resp) <- runRequest (Proxy :: Proxy ct) method req
206206 return $ Headers { getResponse = resp
@@ -213,7 +213,7 @@ instance OVERLAPPING_
213213 ) => HasClient m (Verb method status cts (Headers ls NoContent)) where
214214 type Client m (Verb method status cts (Headers ls NoContent))
215215 = m (Headers ls NoContent)
216− clientWithRoute pm Proxy req = do
216+ clientWithRoute _pm Proxy req = do
217217 let method = reflectMethod (Proxy :: Proxy method)
218218 hdrs <- runRequest (Proxy :: Proxy NoContent) method req
219219 return $ Headers { getResponse = NoContent
@@ -416,7 +416,7 @@ instance (RunClient m NoContent (Int, ByteString, MediaType, [HTTP.Header], Resp
416416 = H.Method -> m (Int, ByteString, MediaType, [HTTP.Header], Response ByteString)
417417
418418 clientWithRoute :: Proxy m -> Proxy Raw -> Req -> Client m Raw
419− clientWithRoute pm Proxy req httpMethod = do
419+ clientWithRoute _pm Proxy req httpMethod = do
420420 runRequest (Proxy :: Proxy NoContent) httpMethod req
421421
422422-- | If you use a 'ReqBody' in one of your endpoints in your API,