X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FMain.hs;h=3ce1eef324283e94ac6ae1cb1850d35edca79619;hp=a1230d60e836c08e849f9c40e78b34e6c4925151;hb=22c3f63a91361fddfe8315d7e7d5daef42700957;hpb=fc0052e451aa03675ebd9a128dfa46573b9357d7

diff --git a/src/Main.hs b/src/Main.hs
index a1230d6..3ce1eef 100644
--- 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