Commit 6f7e6ae4 authored by simonpj's avatar simonpj
Browse files

[project @ 1999-06-30 09:43:57 by simonpj]

Make the r.u.n message happen only with -DDEBUG
parent f1696a9d
...@@ -497,7 +497,7 @@ reportUnusedNames gbl_env avail_env (ExportEnv export_avails _) mentioned_names ...@@ -497,7 +497,7 @@ reportUnusedNames gbl_env avail_env (ExportEnv export_avails _) mentioned_names
| sub_name <- nameSetToList used_names, | sub_name <- nameSetToList used_names,
let avail = case lookupNameEnv avail_env sub_name of let avail = case lookupNameEnv avail_env sub_name of
Just avail -> avail 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 Avail sub_name
] ]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment