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