From 145f24c1f5004a15f9ac419f46fbfaab31de7acc Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Wed, 31 May 2023 16:45:37 -0400
Subject: [PATCH] note about firstStorageServer improvement
---
src/Tahoe/Download.hs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs
index 79cf07d..31697c3 100644
--- a/src/Tahoe/Download.hs
+++ b/src/Tahoe/Download.hs
@@ -65,6 +65,9 @@ download servers cap lookupServer = do
print' ("Going to download: " <> show (getStorageIndex $ getVerifiable cap))
let verifier = getVerifiable cap
let storageIndex = getStorageIndex verifier
+ -- TODO: If getRequiredTotal fails on the first storage server, we may
+ -- need to try more. If it fails for all of them, we need to represent
+ -- the failure coherently.
ss <- firstStorageServer (Map.elems servers) lookupServer
(required, _) <- getRequiredTotal verifier ss
locationE <- locateShares servers lookupServer storageIndex (fromIntegral required)
--
GitLab