X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnBinds.lhs;fp=compiler%2Frename%2FRnBinds.lhs;h=df3b12d1bbcb26086fd3856d43a5624eb14d511b;hp=21822a8319fb5f9ec86f5c64eb60b3892d1b62cd;hb=620410fed8ee6169ccdfd5d7f914433319b29ae8;hpb=25fa4bdbff4a84d6717c4ff7cdf7080687616818

diff --git a/compiler/rename/RnBinds.lhs b/compiler/rename/RnBinds.lhs
index 21822a8..df3b12d 100644
--- a/compiler/rename/RnBinds.lhs
+++ b/compiler/rename/RnBinds.lhs
@@ -306,7 +306,10 @@ rnValBindsRHS trim mb_bound_names (ValBindsIn mbinds sigs)
            (anal_binds, anal_dus) -> return (valbind', valbind'_dus)
               where
                 valbind' = ValBindsOut anal_binds sigs'
-                valbind'_dus = usesOnly (hsSigsFVs sigs') `plusDU` anal_dus
+                valbind'_dus = anal_dus `plusDU` usesOnly (hsSigsFVs sigs')
+			       -- Put the sig uses *after* the bindings
+			       -- so that the binders are removed from 
+			       -- the uses in the sigs
        }
 
 rnValBindsRHS _ _ b = pprPanic "rnValBindsRHS" (ppr b)