eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Update example in Servant.Client.Generic

Browse source
This commit is contained in:
Catherine Galkina 2016-11-21 14:28:01 +03:00
parent 3cc667892c
commit 682d7ead5c
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
servant-client/src/Servant/Client/Generic.hs
View file

@ -21,6 +21,7 @@ import Servant.Client (ClientM)
--
-- Example:
--
-- @
-- type API
-- = "foo" :> Capture "x" Int :> Get '[JSON] Int
-- :<|> "bar" :> QueryParam "a" Char :> QueryParam "b" String :> Post '[JSON] [Int]
@ -31,8 +32,8 @@ import Servant.Client (ClientM)
-- :<|> "baz" :> QueryParam "c" Char :> Post '[JSON] ()
--
-- data APIClient = APIClient
-- { getFoo :: Int -> Manager -> BaseUrl -> ClientM Int
-- , postBar :: Maybe Char -> Maybe String -> Manager -> BaseUrl -> ClientM [Int]
-- { getFoo :: Int -> ClientM Int
-- , postBar :: Maybe Char -> Maybe String -> ClientM [Int]
-- , mkNestedClient :: Int -> NestedClient
-- } deriving GHC.Generic
--
@ -40,8 +41,8 @@ import Servant.Client (ClientM)
-- instance (Client API ~ client) => ClientLike client APIClient
--
-- data NestedClient = NestedClient
-- { getString :: Manager -> BaseUrl -> ClientM String
-- , postBaz :: Maybe Char -> Manager -> BaseUrl -> ClientM ()
-- { getString :: ClientM String
-- , postBaz :: Maybe Char -> ClientM ()
-- } deriving GHC.Generic
--
-- instance Generic.SOP.Generic
@ -49,6 +50,7 @@ import Servant.Client (ClientM)
--
-- mkAPIClient :: APIClient
-- mkAPIClient = mkClient (client (Proxy :: Proxy API))
-- @
class ClientLike client custom where
mkClient :: client -> custom
default mkClient :: (Generic custom, GClientLikeP client xs, SOP I '[xs] ~ Rep custom)