projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
New syntax for GADT-style record declarations, and associated refactoring
[ghc-hetmet.git]
/
compiler
/
basicTypes
/
RdrName.lhs
diff --git
a/compiler/basicTypes/RdrName.lhs
b/compiler/basicTypes/RdrName.lhs
index
31ffe6a
..
89e1fdc
100644
(file)
--- a/
compiler/basicTypes/RdrName.lhs
+++ b/
compiler/basicTypes/RdrName.lhs
@@
-251,7
+251,7
@@
instance Outputable RdrName where
ppr (Exact name) = ppr name
ppr (Unqual occ) = ppr occ
ppr (Qual mod occ) = ppr mod <> dot <> ppr occ
ppr (Exact name) = ppr name
ppr (Unqual occ) = ppr occ
ppr (Qual mod occ) = ppr mod <> dot <> ppr occ
- ppr (Orig mod occ) = ppr mod <> dot <> ppr occ
+ ppr (Orig mod occ) = getPprStyle (\sty -> pprModulePrefix sty mod occ <> ppr occ)
instance OutputableBndr RdrName where
pprBndr _ n
instance OutputableBndr RdrName where
pprBndr _ n