module LWN.HTTP
where
+import Control.Concurrent.ParallelIO (parallel)
import qualified Data.ByteString as B (hPut)
import qualified Data.Map as Map (Map, empty, insert)
import Data.Maybe (fromJust, isNothing)
download_image_urls :: [URL] -> IO ImageMap
download_image_urls image_urls = do
- files <- mapM save_image image_urls
+ files <- parallel $ map save_image image_urls
let pairs = zip image_urls files
return $ foldl my_insert empty_map pairs
where