From a127552cd230de0dea5e33606f7e5b03f2397333 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Fri, 26 May 2023 17:19:27 -0400
Subject: [PATCH] note for next step
---
src/Tahoe/Download.hs | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs
index a9f31a4..5b25fd3 100644
--- a/src/Tahoe/Download.hs
+++ b/src/Tahoe/Download.hs
@@ -300,6 +300,10 @@ makeServer
pure . Right $ wrapGreatBlackSwamp manager host realPort
makeServer _ = pure . Left $ AnnouncementStructureUnmatched
+-- Parameterize readImmutableShare and getImmutableShareNumbers to
+-- wrapGreatBlackSwamp, then use it for both mutables and immutables. Then
+-- use the same download function for both!
+
{- | Create a StorageServer that will speak Great Black Swamp using the given
manager to the server at the given host/port.
-}
--
GitLab