projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make mkApps etc infix, and left-associative
[ghc-hetmet.git]
/
compiler
/
coreSyn
/
PprExternalCore.lhs
diff --git
a/compiler/coreSyn/PprExternalCore.lhs
b/compiler/coreSyn/PprExternalCore.lhs
index
29451d0
..
8e9dbfe
100644
(file)
--- a/
compiler/coreSyn/PprExternalCore.lhs
+++ b/
compiler/coreSyn/PprExternalCore.lhs
@@
-8,6
+8,7
@@
module PprExternalCore () where
import Pretty
import ExternalCore
import Char
import Pretty
import ExternalCore
import Char
+import Encoding ( zEncodeString )
instance Show Module where
showsPrec d m = shows (pmodule m)
instance Show Module where
showsPrec d m = shows (pmodule m)
@@
-59,10
+60,10
@@
pcdef (Constr dcon tbinds tys) =
pcdef (GadtConstr dcon ty) =
(pname dcon) <+> text "::" <+> pty ty
pcdef (GadtConstr dcon ty) =
(pname dcon) <+> text "::" <+> pty ty
-pname id = text id
+pname id = text (zEncodeString id)
pqname ("",id) = pname id
pqname ("",id) = pname id
-pqname (m,id) = pname m <> char '.' <> pname id
+pqname (m,id) = text m <> char '.' <> pname id
ptbind (t,Klifted) = pname t
ptbind (t,k) = parens (pname t <> text "::" <> pkind k)
ptbind (t,Klifted) = pname t
ptbind (t,k) = parens (pname t <> text "::" <> pkind k)