From 4ada25636995115f2b26707870f611a138f4e20b Mon Sep 17 00:00:00 2001 From: Alberto Ruiz Date: Tue, 30 Jun 2015 14:38:52 +0200 Subject: subMatrix changed to non copying slice --- packages/tests/src/Numeric/LinearAlgebra/Tests.hs | 2 +- 1 file changed, 1 insertion(+), 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 79cb769..d9bc9a0 100644 --- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs +++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs @@ -536,7 +536,7 @@ sliceTest = utest "slice test" $ and testSlice f x@(size->sz@(r,c)) = all (==f x) (map f (g y1 ++ g y2)) where - subm = sliceMatrix + subm = subMatrix g y = [ subm (a*r,b*c) sz y | a <-[0..2], b <- [0..2]] h z = fromBlocks (replicate 3 (replicate 3 z)) y1 = h x -- cgit v1.2.3