diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs
index 924905e70c5fc8214c00a2ed28c651212c7f80a5..89ca61c05bdf5c0f46641de95acbd761de274eca 100644
--- a/src/Tahoe/Download.hs
+++ b/src/Tahoe/Download.hs
@@ -123,7 +123,7 @@ executeDownloadTasks ::
     -- | The results of all successful downloads.
     m [DownloadedShare]
 executeDownloadTasks storageIndex tasks = do
-    downloadResults <- mapM (downloadShare storageIndex) tasks
+    downloadResults <- liftIO $ mapConcurrently (downloadShare storageIndex) tasks
     pure . rights $ inject <$> downloadResults
   where
     inject (a, b) = (a,) <$> b