Commit 6432c1a9 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-03-08 17:19:28 by simonmar]

decode OccNames in dumpStyle too
parent a8a2fc9c
......@@ -93,7 +93,7 @@ type EncodedString = String -- Encoded form
pprEncodedFS :: EncodedFS -> SDoc
pprEncodedFS fs
= getPprStyle $ \ sty ->
if userStyle sty
if userStyle sty || dumpStyle sty
-- ftext (decodeFS fs) would needlessly pack the string again
then text (decode (unpackFS fs))
else ftext fs
......
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