From 38d880bd88e4c0fa3e7effe8fe7c76e24e35e848 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 22 Aug 2016 14:27:21 -0400
Subject: add st

---
 HTTP/Server.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'HTTP/Server.hs')

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
-- 
cgit v1.2.3