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/Server.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/Server.hs')
-rw-r--r-- | HTTP/Server.hs | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/HTTP/Server.hs b/HTTP/Server.hs index a6b0f2d..e941158 100644 --- a/HTTP/Server.hs +++ b/HTTP/Server.hs @@ -17,7 +17,7 @@ import Data.Proxy import Network.Wai import Network.Wai.Handler.Warp -runServer :: Int -> IO () +runServer :: Port -> IO () runServer port = run port app app :: Application @@ -29,7 +29,6 @@ userAPI = Proxy server :: Server HttpAPI server = apiVersion :<|> motd - :<|> proofOfWorkRequirement :<|> getObject :<|> putObject :<|> countObjects @@ -40,14 +39,11 @@ apiVersion = return (APIVersion 1) motd :: Handler Motd motd = return $ Motd "Hello World!" -proofOfWorkRequirement :: Handler (Maybe ProofOfWorkRequirement) -proofOfWorkRequirement = return $ Just $ ProofOfWorkRequirement 3 1 +getObject :: StorableObjectIdent -> Maybe ProofOfWork -> Handler (ProofOfWorkRequirement StorableObject) +getObject _i _pow = return $ ProofOfWorkRequirement 10 10 -getObject :: StorableObjectIdent -> Maybe ProofOfWork -> Handler StorableObject -getObject _i _pow = undefined +putObject :: StorableObjectIdent -> Maybe ProofOfWork -> StorableObject -> Handler (ProofOfWorkRequirement StoreResult) +putObject _i _pow _o = return $ Result StoreSuccess -putObject :: StorableObjectIdent -> Maybe ProofOfWork -> StorableObject -> Handler StoreResult -putObject _i _pow _o = return StoreSuccess - -countObjects :: Maybe ProofOfWork -> Handler CountResult -countObjects _pow = return $ CountResult 42 +countObjects :: Maybe ProofOfWork -> Handler (ProofOfWorkRequirement CountResult) +countObjects _pow = return $ Result $ CountResult 42 |