@@ -21,6 +21,7 @@ import Servant.Client (ClientM)
2121--
2222-- Example:
2323--
24+-- @
2425-- type API
2526-- = "foo" :> Capture "x" Int :> Get '[JSON] Int
2627-- :<|> "bar" :> QueryParam "a" Char :> QueryParam "b" String :> Post '[JSON] [Int]
@@ -31,8 +32,8 @@ import Servant.Client (ClientM)
3132-- :<|> "baz" :> QueryParam "c" Char :> Post '[JSON] ()
3233--
3334-- data APIClient = APIClient
34−-- { getFoo :: Int -> Manager -> BaseUrl -> ClientM Int
35−-- , postBar :: Maybe Char -> Maybe String -> Manager -> BaseUrl -> ClientM [Int]
35+-- { getFoo :: Int -> ClientM Int
36+-- , postBar :: Maybe Char -> Maybe String -> ClientM [Int]
3637-- , mkNestedClient :: Int -> NestedClient
3738-- } deriving GHC.Generic
3839--
@@ -40,8 +41,8 @@ import Servant.Client (ClientM)
4041-- instance (Client API ~ client) => ClientLike client APIClient
4142--
4243-- data NestedClient = NestedClient
43−-- { getString :: Manager -> BaseUrl -> ClientM String
44−-- , postBaz :: Maybe Char -> Manager -> BaseUrl -> ClientM ()
44+-- { getString :: ClientM String
45+-- , postBaz :: Maybe Char -> ClientM ()
4546-- } deriving GHC.Generic
4647--
4748-- instance Generic.SOP.Generic
@@ -49,6 +50,7 @@ import Servant.Client (ClientM)
4950--
5051-- mkAPIClient :: APIClient
5152-- mkAPIClient = mkClient (client (Proxy :: Proxy API))
53+-- @
5254class ClientLike client custom where
5355 mkClient :: client -> custom
5456 default mkClient :: (Generic custom, GClientLikeP client xs, SOP I '[xs] ~ Rep custom)