diff options
| author | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-03-12 20:37:22 +0800 |
|---|---|---|
| committer | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-03-13 21:20:51 +0800 |
| commit | 4d1b7b4a9b986e87755784478b4ea4883a5e203e (patch) | |
| tree | 09d4430423951941457675946e80666046abc5ee /compiler | |
| parent | ea6dcef1d9800953b1791304d52884359f415ad9 (diff) | |
| download | haskell-4d1b7b4a9b986e87755784478b4ea4883a5e203e.tar.gz | |
Add OutputableBndr instance for OccName
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/basicTypes/OccName.lhs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/compiler/basicTypes/OccName.lhs b/compiler/basicTypes/OccName.lhs index e993767990..2d17b95d25 100644 --- a/compiler/basicTypes/OccName.lhs +++ b/compiler/basicTypes/OccName.lhs @@ -261,6 +261,11 @@ instance Data OccName where instance Outputable OccName where ppr = pprOccName +instance OutputableBndr OccName where + pprBndr _ = ppr + pprInfixOcc n = pprInfixVar (isSymOcc n) (ppr n) + pprPrefixOcc n = pprPrefixVar (isSymOcc n) (ppr n) + pprOccName :: OccName -> SDoc pprOccName (OccName sp occ) = getPprStyle $ \ sty -> |