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

Remove parallel-io dependency

parent c61e5ef7
......@@ -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
......@@ -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
-}
......
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