Make the r.u.n message happen only with -DDEBUG
| sub_name <- nameSetToList used_names,
let avail = case lookupNameEnv avail_env sub_name of
Just avail -> avail
| 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 )