From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 17 Oct 2012 21:26:04 +0000 (-0400)
Subject: Fix a "norm" in Roots.Fast.
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=ad7ad985ec59ac865483ce810603a43f180fc5ec;p=numerical-analysis.git

Fix a "norm" in Roots.Fast.
---

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}.