1 files changed, 2 insertions, 2 deletions

diff --git a/lib/Numeric/LinearAlgebra/Tests/Properties.hs b/lib/Numeric/LinearAlgebra/Tests/Properties.hs
index d6bb338..d312e52 100644
--- a/lib/Numeric/LinearAlgebra/Tests/Properties.hs
+++ b/lib/Numeric/LinearAlgebra/Tests/Properties.hs
@@ -54,9 +54,9 @@ complex x = complex'' x
 debug x = trace (show x) x
 
 -- relative error
---dist :: (Normed t, Num t) => t -> t -> Double
+dist :: (Normed t, Num t) => t -> t -> Double
 dist a b = r
-    where norm = normInf
+    where norm = pnorm Infinity
           na = norm a
           nb = norm b
           nab = norm (a-b)