delay before starting chaffing

Since there are multiple threads, this prevents the first upload from each
coming at nearly the same time.

1 files changed, 3 insertions, 2 deletions

diff --git a/Storage.hs b/Storage.hs
index b5d07f5..b40a84a 100644
--- a/Storage.hs
+++ b/Storage.hs
@@ -156,6 +156,9 @@ storeChaff hn port delayseconds = forever $ do
 	objsize = objectSize defaultTunables * shareOverhead defaultTunables
 	maxmsdelay = ceiling $ 1000000 * fromMaybe 0 delayseconds
 	go sis rng n = do
+		msdelay <- getStdRandom (randomR (0, maxmsdelay))
+		delay msdelay
+
 		let (b, rng') = cprgGenerate objsize rng
 		let share = Share 0 (StorableObject b)
 		let (is, sis') = nextShareIdents sis
@@ -165,6 +168,4 @@ storeChaff hn port delayseconds = forever $ do
 			StoreSuccess -> putStr "+"
 			_ -> putStr "!"
 		hFlush stdout
-		msdelay <- getStdRandom (randomR (0, maxmsdelay))
-		delay msdelay
 		go sis' rng' n