From 4a4aa0a65ee6cfbde190f9e939a8837d2ac25cc5 Mon Sep 17 00:00:00 2001
From: Jean-Paul Calderone <exarkun@twistedmatrix.com>
Date: Fri, 2 Jun 2023 14:49:58 -0400
Subject: [PATCH] use a less overloaded word for this type
---
src/Tahoe/Download.hs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs
index 84720d8..9986590 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
--
GitLab