Add OutputableBndr instance for OccName
authorDr. ERDI Gergo <gergo@erdi.hu>
Wed, 12 Mar 2014 12:37:22 +0000 (20:37 +0800)
committerDr. ERDI Gergo <gergo@erdi.hu>
Thu, 13 Mar 2014 13:20:51 +0000 (21:20 +0800)
compiler/basicTypes/OccName.lhs

index e993767..2d17b95 100644 (file)
@@ -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 ->