X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FRoots%2FSimple.hs;h=1ab9034038d996bf5906a985d78ada0eec8e362f;hb=8020fee479f43865ed872fb88aaad4a322367c86;hp=7742355041e289f0a3f40ccdadbfa41dca5b6044;hpb=3bee9f6a68ae735d6c5084171e2fb521d1ce3f18;p=numerical-analysis.git

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