Commit 19c26e39 authored by simonpj's avatar simonpj

[project @ 2004-08-27 08:17:07 by simonpj]

Oops: always qualify when printing code
parent c1fa0428
......@@ -328,8 +328,12 @@ pprName (Name {n_sort = sort, n_uniq = uniq, n_occ = occ})
Internal -> pprInternal sty uniq occ
pprExternal sty uniq mod occ is_wired
| unqualStyle sty mod_name occ = pprOccName occ
| codeStyle sty = ppr mod_name <> char '_' <> pprOccName occ
-- In code style, always qualify
-- ToDo: maybe we could print all wired-in things unqualified
-- in code style, to reduce symbol table bloat?
| unqualStyle sty mod_name occ = pprOccName occ
-- Never qualify built-in syntax otherwise
| debugStyle sty = sep [ppr mod_name <> dot <> pprOccName occ,
hsep [text "{-"
, if is_wired then ptext SLIT("(w)") else empty
......
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