From e09104974d13f66f4ec2e7ae2310346996cf2356 Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Sat, 20 Jun 2015 13:49:48 +0200 Subject: NFData for Mod, alternative luPacked'' using gaxpy --- packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'packages/tests/src/Numeric/LinearAlgebra') 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 "" -- cgit v1.2.3