X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FRoots%2FFast.hs;h=cda999ceab62a2fcc3b1f77e07560fb22403d6d3;hb=6cef8c88b8d81e08790d3222c3745b7cb8a54cb4;hp=d6e4d7c23f4091c7a573f01eb4d5c6572a1ca2c8;hpb=c5da1efa77844ae6159dfc781ed886fdffbbf4d1;p=numerical-analysis.git

diff --git a/src/Roots/Fast.hs b/src/Roots/Fast.hs
index d6e4d7c..cda999c 100644
--- 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}.