allow servers to have multiple or no addresses

This allows the server list to contain 3 servers although only 1 is running
so far; uploads to the others will be queued.

It also allows a server to be spread amoung multiple addresses, which may
be useful later for scaling.

This changes BackupRecord serialization, but it's not been in a keysafe
release yet, so that's not a problem.

This commit was sponsored by Boyd Stephen Smith Jr. on Patreon.

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