NFData for Mod, alternative luPacked'' using gaxpy

2 files changed, 3 insertions, 2 deletions

diff --git a/packages/tests/hmatrix-tests.cabal b/packages/tests/hmatrix-tests.cabal
index de796e8..49e0640 100644
--- a/packages/tests/hmatrix-tests.cabal
+++ b/packages/tests/hmatrix-tests.cabal
@@ -26,7 +26,7 @@ flag gsl
 
 library
 
-    Build-Depends:      base >= 4 && < 5,
+    Build-Depends:      base >= 4 && < 5, deepseq,
                         QuickCheck >= 2, HUnit, random,
                         hmatrix >= 0.17
     if flag(gsl)
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 ""