diff options
Diffstat (limited to 'HTTP/Client.hs')
-rw-r--r-- | HTTP/Client.hs | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/HTTP/Client.hs b/HTTP/Client.hs index 4a5106b..0a79ba0 100644 --- a/HTTP/Client.hs +++ b/HTTP/Client.hs @@ -13,13 +13,11 @@ import Servant.Client import Data.Proxy import Network.HTTP.Client (Manager) -apiVersion :: Manager -> BaseUrl -> ClientM APIVersion +httpAPI :: Proxy HttpAPI +httpAPI = Proxy + motd :: Manager -> BaseUrl -> ClientM Motd getObject :: StorableObjectIdent -> Maybe ProofOfWork -> Manager -> BaseUrl -> ClientM (ProofOfWorkRequirement StorableObject) putObject :: StorableObjectIdent -> Maybe ProofOfWork -> StorableObject -> Manager -> BaseUrl -> ClientM (ProofOfWorkRequirement StoreResult) countObjects :: Maybe ProofOfWork -> Manager -> BaseUrl -> ClientM (ProofOfWorkRequirement CountResult) -apiVersion - :<|> motd - :<|> getObject - :<|> putObject - :<|> countObjects = client (Proxy :: Proxy HttpAPI) +motd :<|> getObject :<|> putObject :<|> countObjects = client httpAPI |