diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-01-03 08:49:27 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-01-03 08:49:27 +0000 |
| commit | 92a5889fbd718843362153bd163670243d6f310f (patch) | |
| tree | e9fad7cb47234c75f0e85cff712496cf4fd10fae /ghc | |
| parent | 1cd8ff02dd9e25abe326ea3fecec036c8f23ef5f (diff) | |
| download | haskell-ghc-axioms.tar.gz | |
Small refactoringsghc-axioms
- Define mkAxInstRHS and use it
- Rename Instance to ClsInst
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index cc4be40f44..de65b1d48d 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -962,7 +962,7 @@ filterOutChildren get_thing xs Just p -> getName p `elemNameSet` all_names Nothing -> False -pprInfo :: PrintExplicitForalls -> (TyThing, Fixity, [GHC.Instance]) -> SDoc +pprInfo :: PrintExplicitForalls -> (TyThing, Fixity, [GHC.ClsInst]) -> SDoc pprInfo pefas (thing, fixity, insts) = pprTyThingInContextLoc pefas thing $$ show_fixity fixity @@ -2005,7 +2005,7 @@ showBindings = do let pefas = dopt Opt_PrintExplicitForalls dflags mb_stuff <- GHC.getInfo (getName tt) return $ maybe (text "") (pprTT pefas) mb_stuff - pprTT :: PrintExplicitForalls -> (TyThing, Fixity, [GHC.Instance]) -> SDoc + pprTT :: PrintExplicitForalls -> (TyThing, Fixity, [GHC.ClsInst]) -> SDoc pprTT pefas (thing, fixity, _insts) = pprTyThing pefas thing $$ show_fixity fixity |