Remove an unused variable.

diff --git a/src/Roots/Simple.hs b/src/Roots/Simple.hs
index 7742355041e289f0a3f40ccdadbfa41dca5b6044..1ab9034038d996bf5906a985d78ada0eec8e362f 100644 (file)
--- 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