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

diff --git a/src/Roots/Simple.hs b/src/Roots/Simple.hs
index 3237d60..f9b36fa 100644
--- a/src/Roots/Simple.hs
+++ b/src/Roots/Simple.hs
@@ -260,6 +260,6 @@ fixed_point_error_ratios f x0 x_star p =
   zipWith (/) en_plus_one en_exp
   where
     xn = F.fixed_point_iterations f x0
-    en = map (\x -> norm (x_star - x)) xn
+    en = map (\x -> norm_2 (x_star - x)) xn
     en_plus_one = tail en
     en_exp = map (^p) en