diff options
Diffstat (limited to 'Storage.hs')
-rw-r--r-- | Storage.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -148,7 +148,8 @@ storeChaff hn port = forever $ do mapConcurrently (go sis rng') [1..totalObjects (shareParams testModeTunables)] where - server = networkStorage Nothing $ Server hn port + server = networkStorage Nothing $ Server (ServerName hn) + [ServerAddress hn port] objsize = objectSize defaultTunables * shareOverhead defaultTunables go sis rng n = do let (b, rng') = cprgGenerate objsize rng |