diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs index 79cf07d9f95d48457036239d0cacb296e91ffab4..31697c3a6cfc59098a9c6a701936f80ada29f1b0 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)