summaryrefslogtreecommitdiff
path: root/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
diff options
context:
space:
mode:
Diffstat (limited to 'packages/tests/src/Numeric/LinearAlgebra/Tests.hs')
-rw-r--r--packages/tests/src/Numeric/LinearAlgebra/Tests.hs2
1 files changed, 1 insertions, 1 deletions
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
536 536
537 testSlice f x@(size->sz@(r,c)) = all (==f x) (map f (g y1 ++ g y2)) 537 testSlice f x@(size->sz@(r,c)) = all (==f x) (map f (g y1 ++ g y2))
538 where 538 where
539 subm = sliceMatrix 539 subm = subMatrix
540 g y = [ subm (a*r,b*c) sz y | a <-[0..2], b <- [0..2]] 540 g y = [ subm (a*r,b*c) sz y | a <-[0..2], b <- [0..2]]
541 h z = fromBlocks (replicate 3 (replicate 3 z)) 541 h z = fromBlocks (replicate 3 (replicate 3 z))
542 y1 = h x 542 y1 = h x