write via temp file

avoids short reads, and also if a backup program came along while the write
was happening, avoids short backups

1 files changed, 2 insertions, 1 deletions

diff --git a/Storage.hs b/Storage.hs
index 275f3fe..fc9e9ed 100644
--- a/Storage.hs
+++ b/Storage.hs
@@ -11,7 +11,8 @@ 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
+	-- ^ run after making some calls to storeShard/retrieveShard,
+	-- to avoid correlation attacks
 	}
 
 data StoreResult = StoreSuccess | StoreFailure String