Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
9.2.2023: Due to updates GitLab will be unavailable for some minutes between 9:00 and 11:00.
Open sidebar
i7
peregrine
Commits
89cd1de4
Commit
89cd1de4
authored
Aug 01, 2018
by
Philipp Meyer
Browse files
Remove parallel-io dependency
parent
c61e5ef7
Changes
2
Hide whitespace changes
Inline
Side-by-side
peregrine.cabal
View file @
89cd1de4
...
...
@@ -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
View file @
89cd1de4
...
...
@@ -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
-}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment