From: simonpj <unknown>
Date: Wed, 30 Jun 1999 09:43:57 +0000 (+0000)
Subject: [project @ 1999-06-30 09:43:57 by simonpj]
X-Git-Tag: Approximately_9120_patches~6051
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6f7e6ae4b4c930e2ad7dfe9d6485871aacd1b623;p=ghc-hetmet.git

[project @ 1999-06-30 09:43:57 by simonpj]
Make the r.u.n message happen only with -DDEBUG
---

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 38100f0..ab38df6 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -497,7 +497,7 @@ reportUnusedNames gbl_env avail_env (ExportEnv export_avails _) mentioned_names
 		    | sub_name <- nameSetToList used_names,
 	              let avail = case lookupNameEnv avail_env sub_name of
 			    Just avail -> avail
-		            Nothing -> pprTrace "r.u.n" (ppr sub_name) $
+		            Nothing -> WARN( True, text "reportUnusedName: not in avail_env" <+> ppr sub_name )
 				       Avail sub_name
 		    ]