X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FHTTP.hs;h=ef4fc5aeebf14cbefd25be3cf7084052eeac4025;hp=63079fd127aa853e6b69eef96588153dace02d30;hb=22c3f63a91361fddfe8315d7e7d5daef42700957;hpb=fc0052e451aa03675ebd9a128dfa46573b9357d7

diff --git a/src/LWN/HTTP.hs b/src/LWN/HTTP.hs
index 63079fd..ef4fc5a 100644
--- a/src/LWN/HTTP.hs
+++ b/src/LWN/HTTP.hs
@@ -3,6 +3,7 @@
 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)
@@ -177,7 +178,7 @@ type ImageMap = Map.Map URL FilePath
 
 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