NFData instances

1 files changed, 5 insertions, 2 deletions

diff --git a/examples/parallel.hs b/examples/parallel.hs
index dfbfd88..8653bc3 100644
--- a/examples/parallel.hs
+++ b/examples/parallel.hs
@@ -1,14 +1,17 @@
+-- $ runhaskell parallel.hs 2000
+
 import System(getArgs)
 import Numeric.LinearAlgebra
 import Control.Parallel.Strategies
 import System.Time
 
-inParallel = parMap rwhnf id
+inParallel = parMap rnf id
+-- rwhnf also works in this case
 
+-- matrix product decomposed into p parallel subtasks
 parMul p x y = fromBlocks [ inParallel ( map (x <>) ys ) ]
     where ys = splitColumns p y
 
-
 main = do
     n <- (read . head) `fmap` getArgs
     let m = ident n :: Matrix Double