Merge branch 'mmultP' of https://github.com/lehins/repa into lehins-m…

…multP
dintxaustip · Aug 21, 2017 · 03d6269 · 03d6269
2 parents 81f6857 + 3fee016
commit 03d6269
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 (*)