[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 (file)
--- 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
                    ]