From 3923667ebdb24680dbb415bd688a8c0326df2212 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 22 Sep 2016 10:40:06 -0400 Subject: 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. --- Storage/Network.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Storage') diff --git a/Storage/Network.hs b/Storage/Network.hs index dec6d57..f8169c9 100644 --- a/Storage/Network.hs +++ b/Storage/Network.hs @@ -25,9 +25,11 @@ networkStorage localdir server = Storage , countShares = count server , moveShares = move server , uploadQueue = Just $ localStorage (storageDir localdir) - ("uploadqueue" serverName server) + ("uploadqueue" name) , getServer = Just server } + where + ServerName name = serverName server store :: Server -> StorableObjectIdent -> Share -> IO StoreResult store srv i (Share _n o) = -- cgit v1.2.3