diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs index 596a5282010a3e6ac74307693e68dec6778d3ae1..58d933e15a92f0955082af31867b9de2a40283d9 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