diff options
-rw-r--r-- | Storage.hs | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -145,13 +145,13 @@ storeChaff hn port = forever $ do -- Prefix "random chaff" to the name to avoid ever using a name -- that a real user might want to use. let sis = shareIdents testModeTunables (Name $ "random chaff:" <> randomname) (KeyFile "random") - mapConcurrently (go sis rng' (concat (repeat knownObjectSizes))) + mapConcurrently (go sis rng') [1..totalObjects (shareParams testModeTunables)] where server = networkStorage Nothing $ Server hn port - go _ _ [] _ = return () - go sis rng (s:sizes) n = do - let (b, rng') = cprgGenerate s rng + objsize = objectSize defaultTunables * shareOverhead defaultTunables + go sis rng n = do + let (b, rng') = cprgGenerate objsize rng let share = Share 0 (StorableObject b) let (is, sis') = nextShareIdents sis let i = S.toList is !! (n - 1) @@ -160,4 +160,4 @@ storeChaff hn port = forever $ do StoreSuccess -> putStr "+" _ -> putStr "!" hFlush stdout - go sis' rng' sizes n + go sis' rng' n |