1 files changed, 2 insertions, 1 deletions
diff --git a/Storage.hs b/Storage.hs
index ded4bbf..3e2c418 100644
--- a/Storage.hs
+++ b/Storage.hs
@@ -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