diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-08-22 14:27:21 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-08-22 14:27:21 -0400 |
commit | 38d880bd88e4c0fa3e7effe8fe7c76e24e35e848 (patch) | |
tree | 878e10317e176c52a1b725f097f756f3a3e7694d /HTTP/Server.hs | |
parent | 986995f9beabfc4546c0a1a6b35dc7cdbc926efc (diff) | |
download | keysafe-38d880bd88e4c0fa3e7effe8fe7c76e24e35e848.tar.gz |
add st
Diffstat (limited to 'HTTP/Server.hs')
-rw-r--r-- | HTTP/Server.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/HTTP/Server.hs b/HTTP/Server.hs index a671a4b..cce91cd 100644 --- a/HTTP/Server.hs +++ b/HTTP/Server.hs @@ -47,7 +47,7 @@ server st = apiVersion :<|> motd :<|> getObject st :<|> putObject st - :<|> countObjects + :<|> countObjects st apiVersion :: Handler APIVersion apiVersion = return (APIVersion 1) @@ -69,8 +69,8 @@ putObject st i _pow o = do liftIO $ requestObscure st return (Result r) -countObjects :: Maybe ProofOfWork -> Handler (ProofOfWorkRequirement CountResult) -countObjects _pow = liftIO $ Result <$> countShares serverStorage +countObjects :: ServerState -> Maybe ProofOfWork -> Handler (ProofOfWorkRequirement CountResult) +countObjects _st _pow = liftIO $ Result <$> countShares serverStorage -- | 1 is a dummy value; the server does not know the actual share numbers. dummyShareNum :: ShareNum |