Commit 3eff07c1 authored by Simon Marlow's avatar Simon Marlow

update to work with parallel-2.x

parent 61f271de
......@@ -42,7 +42,7 @@ import Control.Parallel.Strategies
-- gph ring, simply by sparking all ring process outputs
-- (granularity control by ring size)
gphRing np splitIn combOut ringF input
= combOut (outs `using` parList rnf )
= combOut (outs `using` parList rdeepseq)
where ringIns = splitIn np input
(outs,rComm) = foldl' fld ([],rComm) ringIns
-- fld :: ([o],[r]) -> i -> ([o],[r])
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