From ad7ad985ec59ac865483ce810603a43f180fc5ec Mon Sep 17 00:00:00 2001
From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 17 Oct 2012 17:26:04 -0400
Subject: [PATCH] Fix a "norm" in Roots.Fast.

---
 src/Roots/Fast.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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