Remove parallel-io dependency

peregrine.cabal

@@ -23,7 +23,7 @@ executable peregrine
   other-modules:
   -- other-extensions:
   build-depends:       base >=4 && <5, sbv, parsec >= 3.1, containers, transformers,
-                       bytestring, mtl, stm, async, parallel-io, text, aeson
+                       bytestring, mtl, stm, async, text, aeson
   hs-source-dirs:      src
   default-language:    Haskell2010
   ghc-options:         -fsimpl-tick-factor=1000 -threaded -rtsopts -with-rtsopts=-N

src/Util.hs

@@ -5,7 +5,7 @@ module Util
      listSet,listMap,val,vals,mval,zeroVal,positiveVal,sumVal,
      makeVarMap,makeVarMapWith,buildVector,makeVector,getNames,
      Vector,IVector,RVector,Model,VarMap,SIMap,SRMap,SBMap,IMap,RMap,BMap,showWeighted,
-     OptIO,verbosePut,opt,putLine,parallelIO)
+     OptIO,verbosePut,opt,putLine)
 where
 
 import Data.SBV
@@ -14,7 +14,6 @@ import qualified Data.Set as S
 import Data.List
 import Data.Ord
 import Data.Function
-import Control.Concurrent.ParallelIO
 import Control.Monad
 import Control.Monad.Reader
 import System.IO
@@ -127,11 +126,6 @@ verbosePut level str = do
 putLine :: String -> OptIO ()
 putLine = liftIO . putStrLn
 
-parallelIO :: [OptIO a] -> OptIO [a]
-parallelIO tasks = do
-        opts <- ask
-        liftIO $ parallel $ map (`runReaderT` opts) tasks
-
 {-
 - String functions
 -}