Also remove parallel-io dependency from main module

20b227e1 · Philipp Meyer · 89cd1de4 · 20b227e1
Commit 20b227e1 authored Aug 01, 2018 by Philipp Meyer
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 4 deletions

src/Main.hs src/Main.hs +1 -4

No files found.
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -3,7 +3,6 @@ module Main where
 import System.Exit
 import System.IO
 import Control.Monad
-import Control.Concurrent.ParallelIO
 import Control.Arrow (first)
 import Data.List (partition,minimumBy,genericLength)
 import Data.Ord (comparing)
@@ -203,6 +202,4 @@ exitErrorWith msg = do
        cleanupAndExitWith $ ExitFailure 3

 cleanupAndExitWith :: ExitCode -> IO ()
-cleanupAndExitWith code = do
-        stopGlobalPool
-        exitWith code
+cleanupAndExitWith code = exitWith code