Use parallel-io instead of mapM to download images and full stories.

[dead/lwn-epub.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index a1230d60e836c08e849f9c40e78b34e6c4925151..3ce1eef324283e94ac6ae1cb1850d35edca79619 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -2,6 +2,7 @@
 module Main
 where
 
+import Control.Concurrent.ParallelIO (stopGlobalPool)
 import System.Directory (doesFileExist)
 import System.IO (
   Handle,
@@ -47,3 +48,6 @@ main = do
     Nothing -> do
       _ <- show_help
       return ()
+
+  -- Necessary, for some reason.
+  stopGlobalPool