Fixed nested parallelizm issue with mmultP. Fixed haskell-repa#13

dintxaustip · May 20, 2017 · 3fee016 · 3fee016
1 parent a32c3b1
commit 3fee016
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/repa-algorithms/Data/Array/Repa/Algorithms/Matrix.hs b/repa-algorithms/Data/Array/Repa/Algorithms/Matrix.hs
@@ -56,7 +56,7 @@ mmultP arr brr
    do   trr      <- transpose2P brr
         let (Z :. h1  :. _)  = extent arr
         let (Z :. _   :. w2) = extent brr
-        computeP 
+        trr `deepSeqArray` computeP 
          $ fromFunction (Z :. h1 :. w2)
          $ \ix   -> R.sumAllS 
                   $ R.zipWith (*)