diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs index 84720d84196a4f663efda4ceaa2911bd79bf3c76..99865903fb0af0c81dedf40dbca160b05bc95c0c 100644 --- a/src/Tahoe/Download.hs +++ b/src/Tahoe/Download.hs @@ -35,7 +35,7 @@ import Tahoe.Download.Internal.Mutable type DownloadTask = (ShareNum, StorageServer) -- | A downloaded share -type Share = (ShareNum, LB.ByteString) +type DownloadedShare = (ShareNum, LB.ByteString) {- | Recover the application data associated with a given capability from the given servers, if possible. @@ -107,7 +107,7 @@ executeDownloadTasks :: -- | The downloads to attempt. [DownloadTask] -> -- | The results of all successful downloads. - m [Share] + m [DownloadedShare] executeDownloadTasks storageIndex tasks = do downloadResults <- mapM (downloadShare storageIndex) tasks pure . rights $ inject <$> downloadResults @@ -154,7 +154,7 @@ decodeShares :: -- | The read capability which allows the contents to be decrypted. readCap -> -- | The results of downloading the shares. - [Share] -> + [DownloadedShare] -> Int -> m (Either DownloadError LB.ByteString) decodeShares r shares required = do