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 55a5f74..6d54f4d 100644
--- a/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
+++ b/packages/tests/src/Numeric/LinearAlgebra/Tests.hs
@@ -165,7 +165,7 @@ triTest = utest "triTest" ok1 where
        1.0000,  6.0000
     ]
 
-  ok1 = (maximum $ map abs $ concat $ toLists $ e - v) <= 1e-14
+  ok1 = (norm_Inf . flatten $ e - v) <= 1e-13
 
 -----------------------------------------------------