fix build

1 files changed, 2 insertions, 2 deletions

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