From b820793f6103cd9ea1830de6a6ffd6c604de177e Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 16 Dec 2003 16:19:29 +0000
Subject: [PATCH] [project @ 2003-12-16 16:19:29 by simonpj] Dont report
 bindings beginning with _ as unused

---
 ghc/compiler/basicTypes/NameSet.lhs |    5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/basicTypes/NameSet.lhs b/ghc/compiler/basicTypes/NameSet.lhs
index 4474391..d0e55de 100644
--- 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
-- 
1.7.10.4