From c2aa90a92349be09d88270c3ee6d4b7fddbf4768 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 23 Sep 2016 17:10:34 -0400 Subject: fix build --- Storage.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Storage.hs') diff --git a/Storage.hs b/Storage.hs index fcd2f7e..b5d847f 100644 --- a/Storage.hs +++ b/Storage.hs @@ -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 -- cgit v1.2.3