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