[project @ 2003-12-16 16:19:29 by simonpj]

[ghc-hetmet.git] / ghc / compiler / basicTypes / NameSet.lhs

diff --git a/ghc/compiler/basicTypes/NameSet.lhs b/ghc/compiler/basicTypes/NameSet.lhs
index 4474391..d0e55de 100644 (file)
--- a/ghc/compiler/basicTypes/NameSet.lhs
+++ b/ghc/compiler/basicTypes/NameSet.lhs
@@ -180,7 +180,10 @@ findUses dus uses
     get (Nothing, rhs_uses) uses
        = rhs_uses `unionNameSets` uses
     get (Just defs, rhs_uses) uses
-       | defs `intersectsNameSet` uses
+       | defs `intersectsNameSet` uses         -- Used
+       || not (all (reportIfUnused . nameOccName) (nameSetToList defs))
+               -- At least one starts with an "_", 
+               -- so treat the group as used
        = rhs_uses `unionNameSets` uses
        | otherwise     -- No def is used
        = uses