Skip to content
Snippets Groups Projects
Commit 5e8bb277 authored by Jean-Paul Calderone's avatar Jean-Paul Calderone
Browse files

adapt to minor tahoe-great-black-swamp API change

parent 1b247101
Branches 1.ci
Tags
1 merge request!2Incorporate tahoe-great-black-swamp to do share downloads using GBS
Pipeline #4520 failed
Stage: test
Show whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
src/Tahoe/Download.hs
+ 2
− 2
View file @ 5e8bb277
...@@ -40,7 +40,7 @@ import qualified Tahoe.CHK.Encrypt ...@@ -40,7 +40,7 @@ import qualified Tahoe.CHK.Encrypt
import Tahoe.CHK.Server (StorageServer (..), StorageServerID) import Tahoe.CHK.Server (StorageServer (..), StorageServerID)
import Tahoe.CHK.Types (ShareNum, StorageIndex) import Tahoe.CHK.Types (ShareNum, StorageIndex)
import TahoeLAFS.Storage.API (CBORSet (..), ShareNumber (ShareNumber)) import TahoeLAFS.Storage.API (CBORSet (..), ShareNumber (ShareNumber))
import TahoeLAFS.Storage.Client (getImmutableShareNumbers, readImmutableShares) import TahoeLAFS.Storage.Client (getImmutableShareNumbers, readImmutableShare)
import Text.Read (readMaybe) import Text.Read (readMaybe)
{- | An unrecoverable problem arose while attempting to download and/or read {- | An unrecoverable problem arose while attempting to download and/or read
...@@ -269,7 +269,7 @@ makeServer ...@@ -269,7 +269,7 @@ makeServer
storageServerWrite = undefined storageServerWrite = undefined
storageServerRead storageIndex shareNum = do 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 res <- runClientM clientm env
case res of case res of
Left err -> throwIO err Left err -> throwIO err
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment