From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 12 Oct 2012 16:52:42 +0000 (-0400)
Subject: Remove an unused variable.
X-Git-Url: http://gitweb.michael.orlitzky.com/?p=numerical-analysis.git;a=commitdiff_plain;h=8020fee479f43865ed872fb88aaad4a322367c86

Remove an unused variable.
---

diff --git a/src/Roots/Simple.hs b/src/Roots/Simple.hs
index 7742355..1ab9034 100644
--- a/src/Roots/Simple.hs
+++ b/src/Roots/Simple.hs
@@ -242,4 +242,4 @@ fixed_point f epsilon x0 =
     -- |x_{n} - x_{n+1}| < epsilon. The pattern match on 'Just' is
     -- "safe" since the list is infinite. We'll succeed or loop
     -- forever.
-    Just winning_pair = find (\(x, diff) -> diff < epsilon) pairs
+    Just winning_pair = find (\(_, diff) -> diff < epsilon) pairs