From ce8073fda11a82bb43a19da7bf356e08504e43ef Mon Sep 17 00:00:00 2001
From: Shae Erisson <shae@scannedinavian.com>
Date: Wed, 28 Jun 2023 16:57:52 -0500
Subject: [PATCH] no really, use mapConcurrently
---
src/Tahoe/Download.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Tahoe/Download.hs b/src/Tahoe/Download.hs
index 924905e..89ca61c 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
--
GitLab