From 2ef7028aab75ee9e96b9f4a429f70d37c63deab5 Mon Sep 17 00:00:00 2001
From: Alberto Ruiz <aruiz@um.es>
Date: Wed, 2 Dec 2009 14:03:33 +0000
Subject: fix version

---
 examples/parallel.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'examples/parallel.hs')

diff --git a/examples/parallel.hs b/examples/parallel.hs
index 388a48e..efcbe8a 100644
--- a/examples/parallel.hs
+++ b/examples/parallel.hs
@@ -5,8 +5,8 @@ import Numeric.LinearAlgebra
 import Control.Parallel.Strategies
 import System.Time
 
-inParallel = parMap rdeepseq id
--- rwhnf also works in this case
+inParallel = parMap rwhnf id
+--  rdeepseq (or older rnf) not needed in this case
 
 -- matrix product decomposed into p parallel subtasks
 parMul p x y = fromBlocks [ inParallel ( map (x <>) ys ) ]
-- 
cgit v1.2.3