Fix a "norm" in Roots.Fast.

[numerical-analysis.git] / src / Roots / Fast.hs

diff --git a/src/Roots/Fast.hs b/src/Roots/Fast.hs
index d6e4d7c23f4091c7a573f01eb4d5c6572a1ca2c8..cda999ceab62a2fcc3b1f77e07560fb22403d6d3 100644 (file)
--- a/src/Roots/Fast.hs
+++ b/src/Roots/Fast.hs
@@ -115,7 +115,7 @@ fixed_point_with_iterations f epsilon x0 =
     xn = fixed_point_iterations f x0
     xn_plus_one = tail xn
 
-    abs_diff v w = norm (v - w)
+    abs_diff v w = norm_2 (v - w)
 
     -- The nth entry in this list is the absolute value of x_{n} -
     -- x_{n+1}.