From ab3594dacb0461ae5e253544f65c3e3d50eb721d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 11 Aug 2016 20:39:45 -0400 Subject: obscure shard timestamps --- Storage.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'Storage.hs') 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) -- cgit v1.2.3