diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-09-12 22:59:03 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-09-12 22:59:03 -0400 |
| commit | e333a779338ff8bccdc4225fc953d6f4f0226db0 (patch) | |
| tree | c07f1165ba101c2b10e914170fb07628e1d08d3a /HTTP/Client.hs | |
| parent | 13c408d2295597540f0b2dfb6f7b86e739876c90 (diff) | |
| download | keysafe-e333a779338ff8bccdc4225fc953d6f4f0226db0.tar.gz | |
add proof of work to countobjects
In this case, an empty string is hashed to generate the PoW.
Diffstat (limited to 'HTTP/Client.hs')
| -rw-r--r-- | HTTP/Client.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/HTTP/Client.hs b/HTTP/Client.hs index 8f81db4..74381be 100644 --- a/HTTP/Client.hs +++ b/HTTP/Client.hs @@ -20,5 +20,5 @@ httpAPI = Proxy motd :: Manager -> BaseUrl -> ClientM Motd getObject :: StorableObjectIdent -> Maybe ProofOfWork -> Manager -> BaseUrl -> ClientM (POWGuarded StorableObject) putObject :: StorableObjectIdent -> Maybe ProofOfWork -> StorableObject -> Manager -> BaseUrl -> ClientM (POWGuarded StoreResult) -countObjects :: Manager -> BaseUrl -> ClientM CountResult +countObjects :: Maybe ProofOfWork -> Manager -> BaseUrl -> ClientM (POWGuarded CountResult) motd :<|> getObject :<|> putObject :<|> countObjects = client httpAPI |