diff options
Diffstat (limited to 'Storage.hs')
-rw-r--r-- | Storage.hs | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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) |