diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-08-20 17:59:14 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-08-20 17:59:14 -0400 |
commit | 7ed6961a0e0ef713c136a9d36f86bc7e31414dc5 (patch) | |
tree | 591fd6c5f60276c946962f8af27ec3def5d9b303 /HTTP/Client.hs | |
parent | 3633c44893bfbd50f25b84ac353012975388332c (diff) | |
download | keysafe-7ed6961a0e0ef713c136a9d36f86bc7e31414dc5.tar.gz |
http client, and --server
Diffstat (limited to 'HTTP/Client.hs')
-rw-r--r-- | HTTP/Client.hs | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/HTTP/Client.hs b/HTTP/Client.hs new file mode 100644 index 0000000..e4e9b67 --- /dev/null +++ b/HTTP/Client.hs @@ -0,0 +1,27 @@ +{- Copyright 2016 Joey Hess <id@joeyh.name> + - + - Licensed under the GNU AGPL version 3 or higher. + -} + +module HTTP.Client where + +import HTTP +import Types +import Types.Storage +import Servant.API +import Servant.Client +import Data.Proxy +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 +apiVersion + :<|> motd + :<|> proofOfWorkRequirement + :<|> getObject + :<|> putObject + :<|> countObjects = client (Proxy :: Proxy HttpAPI) |