diff options
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 |