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