NFData for Mod, alternative luPacked'' using gaxpy

1 files changed, 2 insertions, 1 deletions

diff --git a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
index d1fc6ec..b226c9f 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
@@ -47,6 +47,7 @@ import Debug.Trace
 import Control.Monad(when)
 import Control.Applicative
 import Control.Monad(ap)
+import Control.DeepSeq ( NFData(..) )
 
 import Test.QuickCheck(Arbitrary,arbitrary,coarbitrary,choose,vector
                       ,sized,classify,Testable,Property
@@ -770,7 +771,7 @@ cholBench = do
 luBenchN f n x msg = do
     let m = diagRect 1 (fromList (replicate n x)) n n
     m `seq` putStr ""
-    time (msg ++ " "++ show n) (f m)
+    time (msg ++ " "++ show n) (rnf $ f m)
 
 luBench = do
     putStrLn ""