From 5e8bb2775db2eb6bffba69a521166116df7e36d1 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Thu, 4 May 2023 16:37:02 -0400
Subject: [PATCH] adapt to minor tahoe-great-black-swamp API change
---
src/Tahoe/Download.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs
index 596a528..58d933e 100644
--- a/src/Tahoe/Download.hs
+++ b/src/Tahoe/Download.hs
@@ -40,7 +40,7 @@ import qualified Tahoe.CHK.Encrypt
import Tahoe.CHK.Server (StorageServer (..), StorageServerID)
import Tahoe.CHK.Types (ShareNum, StorageIndex)
import TahoeLAFS.Storage.API (CBORSet (..), ShareNumber (ShareNumber))
-import TahoeLAFS.Storage.Client (getImmutableShareNumbers, readImmutableShares)
+import TahoeLAFS.Storage.Client (getImmutableShareNumbers, readImmutableShare)
import Text.Read (readMaybe)
{- | An unrecoverable problem arose while attempting to download and/or read
@@ -269,7 +269,7 @@ makeServer
storageServerWrite = undefined
storageServerRead storageIndex shareNum = do
- let clientm = readImmutableShares (toBase32 storageIndex) (ShareNumber $ fromIntegral shareNum) Nothing
+ let clientm = readImmutableShare (toBase32 storageIndex) (ShareNumber $ fromIntegral shareNum) Nothing
res <- runClientM clientm env
case res of
Left err -> throwIO err
--
GitLab