add shardCount

1 files changed, 5 insertions, 1 deletions

diff --git a/Storage.hs b/Storage.hs
index fc9e9ed..cb0e323 100644
--- a/Storage.hs
+++ b/Storage.hs
@@ -13,7 +13,8 @@ data Storage = Storage
 	, obscureShards :: IO ObscureResult
 	-- ^ run after making some calls to storeShard/retrieveShard,
 	-- to avoid correlation attacks
-	}
+	, countShards :: IO CountResult
+	} -- Note that there is no interface to enumerate shards.
 
 data StoreResult = StoreSuccess | StoreFailure String
 	deriving (Show)
@@ -22,3 +23,6 @@ data RetrieveResult = RetrieveSuccess Shard | RetrieveFailure String
 
 data ObscureResult = ObscureSuccess | ObscureFailure String
 	deriving (Show)
+
+data CountResult = CountResult Integer | CountFailure String
+	deriving (Show)