7480076 · servant · git.iko.soy

108-- > (getAllBooks :<|> EmptyClient) = client myApi

109instance HasClient m EmptyAPI where

110 type Client m EmptyAPI = EmptyClient

111− clientWithRoute pm Proxy _ = EmptyClient

111+ clientWithRoute _pm Proxy _ = EmptyClient

112

113-- | If you use a 'Capture' in one of your endpoints in your API,

114-- the corresponding querying function will automatically take

178 (RunClient m ct ([H.Header], a), MimeUnrender ct a, ReflectMethod method, cts' ~ (ct ': cts)

179 ) => HasClient m (Verb method status cts' a) where

180 type Client m (Verb method status cts' a) = m a

181− clientWithRoute pm Proxy req = do

181+ clientWithRoute _pm Proxy req = do

182 (_hdrs, a) :: ([H.Header], a) <- runRequest (Proxy :: Proxy ct) method req

183 return a

184 where method = reflectMethod (Proxy :: Proxy method)

188 , ReflectMethod method) => HasClient m (Verb method status cts NoContent) where

189 type Client m (Verb method status cts NoContent)

190 = m NoContent

191− clientWithRoute pm Proxy req = do

191+ clientWithRoute _pm Proxy req = do

192 _hdrs :: [H.Header] <- runRequest (Proxy :: Proxy NoContent) method req

193 return NoContent

194 where method = reflectMethod (Proxy :: Proxy method)

200 ) => HasClient m (Verb method status cts' (Headers ls a)) where

201 type Client m (Verb method status cts' (Headers ls a))

202 = m (Headers ls a)

203− clientWithRoute pm Proxy req = do

203+ clientWithRoute _pm Proxy req = do

204 let method = reflectMethod (Proxy :: Proxy method)

205 (hdrs, resp) <- runRequest (Proxy :: Proxy ct) method req

206 return $ Headers { getResponse = resp

213 ) => HasClient m (Verb method status cts (Headers ls NoContent)) where

214 type Client m (Verb method status cts (Headers ls NoContent))

215 = m (Headers ls NoContent)

216− clientWithRoute pm Proxy req = do

216+ clientWithRoute _pm Proxy req = do

217 let method = reflectMethod (Proxy :: Proxy method)

218 hdrs <- runRequest (Proxy :: Proxy NoContent) method req

219 return $ Headers { getResponse = NoContent

416 = H.Method -> m (Int, ByteString, MediaType, [HTTP.Header], Response ByteString)

417

418 clientWithRoute :: Proxy m -> Proxy Raw -> Req -> Client m Raw

419− clientWithRoute pm Proxy req httpMethod = do

419+ clientWithRoute _pm Proxy req httpMethod = do

420 runRequest (Proxy :: Proxy NoContent) httpMethod req

421

422-- | If you use a 'ReqBody' in one of your endpoints in your API,