diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-08-22 12:07:17 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-08-22 12:23:53 -0400 |
| commit | 1e12f0574214cd68b2d201889ff15e79a5cc0076 (patch) | |
| tree | e086991e403591205fa73d25129bfac1fc9b1ac8 /HTTP/Client.hs | |
| parent | 7ed6961a0e0ef713c136a9d36f86bc7e31414dc5 (diff) | |
| download | keysafe-1e12f0574214cd68b2d201889ff15e79a5cc0076.tar.gz | |
return ProofOfWorkRequirement t
This way the requirement can be varied for different operations.
Diffstat (limited to 'HTTP/Client.hs')
| -rw-r--r-- | HTTP/Client.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/HTTP/Client.hs b/HTTP/Client.hs index e4e9b67..2120217 100644 --- a/HTTP/Client.hs +++ b/HTTP/Client.hs @@ -15,13 +15,11 @@ import Network.HTTP.Client (Manager) apiVersion :: Manager -> BaseUrl -> ClientM APIVersion motd :: Manager -> BaseUrl -> ClientM Motd -proofOfWorkRequirement :: Manager -> BaseUrl -> ClientM (Maybe ProofOfWorkRequirement) -getObject :: StorableObjectIdent -> Maybe ProofOfWork -> Manager -> BaseUrl -> ClientM StorableObject -putObject :: StorableObjectIdent -> Maybe ProofOfWork -> Types.StorableObject -> Manager -> BaseUrl -> ClientM StoreResult -countObjects :: Maybe ProofOfWork -> Manager -> BaseUrl -> ClientM CountResult +getObject :: StorableObjectIdent -> Maybe ProofOfWork -> Manager -> BaseUrl -> ClientM (ProofOfWorkRequirement StorableObject) +putObject :: StorableObjectIdent -> Maybe ProofOfWork -> Types.StorableObject -> Manager -> BaseUrl -> ClientM (ProofOfWorkRequirement StoreResult) +countObjects :: Maybe ProofOfWork -> Manager -> BaseUrl -> ClientM (ProofOfWorkRequirement CountResult) apiVersion :<|> motd - :<|> proofOfWorkRequirement :<|> getObject :<|> putObject :<|> countObjects = client (Proxy :: Proxy HttpAPI) |