obscure shard timestamps

1 files changed, 5 insertions, 0 deletions

diff --git a/Storage.hs b/Storage.hs
index 6b23c33..275f3fe 100644
--- a/Storage.hs
+++ b/Storage.hs
@@ -10,9 +10,14 @@ import Types
 data Storage = Storage
 	{ storeShard :: StorableObjectIdent -> Shard -> IO StoreResult
 	, retrieveShard :: ShardNum -> StorableObjectIdent -> IO RetrieveResult
+	, obscureShards :: IO ObscureResult
+	-- ^ run after making some changes, to avoid correlation attacks
 	}
 
 data StoreResult = StoreSuccess | StoreFailure String
 	deriving (Show)
 
 data RetrieveResult = RetrieveSuccess Shard | RetrieveFailure String
+
+data ObscureResult = ObscureSuccess | ObscureFailure String
+	deriving (Show)