Commit 89cd1de4 authored by Philipp Meyer's avatar Philipp Meyer

Remove parallel-io dependency

parent c61e5ef7
...@@ -23,7 +23,7 @@ executable peregrine ...@@ -23,7 +23,7 @@ executable peregrine
other-modules: other-modules:
-- other-extensions: -- other-extensions:
build-depends: base >=4 && <5, sbv, parsec >= 3.1, containers, transformers, 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 hs-source-dirs: src
default-language: Haskell2010 default-language: Haskell2010
ghc-options: -fsimpl-tick-factor=1000 -threaded -rtsopts -with-rtsopts=-N ghc-options: -fsimpl-tick-factor=1000 -threaded -rtsopts -with-rtsopts=-N
...@@ -5,7 +5,7 @@ module Util ...@@ -5,7 +5,7 @@ module Util
listSet,listMap,val,vals,mval,zeroVal,positiveVal,sumVal, listSet,listMap,val,vals,mval,zeroVal,positiveVal,sumVal,
makeVarMap,makeVarMapWith,buildVector,makeVector,getNames, makeVarMap,makeVarMapWith,buildVector,makeVector,getNames,
Vector,IVector,RVector,Model,VarMap,SIMap,SRMap,SBMap,IMap,RMap,BMap,showWeighted, Vector,IVector,RVector,Model,VarMap,SIMap,SRMap,SBMap,IMap,RMap,BMap,showWeighted,
OptIO,verbosePut,opt,putLine,parallelIO) OptIO,verbosePut,opt,putLine)
where where
import Data.SBV import Data.SBV
...@@ -14,7 +14,6 @@ import qualified Data.Set as S ...@@ -14,7 +14,6 @@ import qualified Data.Set as S
import Data.List import Data.List
import Data.Ord import Data.Ord
import Data.Function import Data.Function
import Control.Concurrent.ParallelIO
import Control.Monad import Control.Monad
import Control.Monad.Reader import Control.Monad.Reader
import System.IO import System.IO
...@@ -127,11 +126,6 @@ verbosePut level str = do ...@@ -127,11 +126,6 @@ verbosePut level str = do
putLine :: String -> OptIO () putLine :: String -> OptIO ()
putLine = liftIO . putStrLn putLine = liftIO . putStrLn
parallelIO :: [OptIO a] -> OptIO [a]
parallelIO tasks = do
opts <- ask
liftIO $ parallel $ map (`runReaderT` opts) tasks
{- {-
- String functions - String functions
-} -}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment