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