Commit 4d1b7b4a authored by Gergő Érdi's avatar Gergő Érdi
Browse files

Add OutputableBndr instance for OccName

parent ea6dcef1
...@@ -261,6 +261,11 @@ instance Data OccName where ...@@ -261,6 +261,11 @@ instance Data OccName where
instance Outputable OccName where instance Outputable OccName where
ppr = pprOccName 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 -> SDoc
pprOccName (OccName sp occ) pprOccName (OccName sp occ)
= getPprStyle $ \ sty -> = getPprStyle $ \ sty ->
......
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