[project @ 1999-01-28 11:33:42 by simonpj]

[ghc-hetmet.git] / ghc / lib / misc / FiniteMap.lhs

diff --git a/ghc/lib/misc/FiniteMap.lhs b/ghc/lib/misc/FiniteMap.lhs
index 8436c8c..fda9b48 100644 (file)
--- a/ghc/lib/misc/FiniteMap.lhs
+++ b/ghc/lib/misc/FiniteMap.lhs
@@ -627,8 +627,6 @@ glueVBal fm_l@(Branch key_l elt_l _ fm_ll fm_lr)
   | otherwise          -- We now need the same two cases as in glueBal above.
   = glueBal fm_l fm_r
   where
-    (mid_key_l,mid_elt_l) = findMax fm_l
-    (mid_key_r,mid_elt_r) = findMin fm_r
     size_l = sizeFM fm_l
     size_r = sizeFM fm_r
 \end{code}