diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2013-01-28 13:51:19 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2013-01-28 13:51:19 +0000 |
| commit | f1fa6eb2f5f51307e72b445feac57dfa0ea7b8e6 (patch) | |
| tree | 0aab7f679d8a2237fc721869612903099420ca39 /compiler/ghci/Debugger.hs | |
| parent | a98e51ecf51d1a93d48a8a10d35827edfd9d8c28 (diff) | |
| download | haskell-f1fa6eb2f5f51307e72b445feac57dfa0ea7b8e6.tar.gz | |
Pure refactoring
* Move tidyType and friends from TcType to TypeRep
(It was always wrong to have it in TcType.)
* Move mkCoAxBranch and friends from FamInst to Coercion
* Move pprCoAxBranch and friends from FamInstEnv to Coercion
No change in functionality, though there might be a little
wibble in error message output, because I combined two different
functions both called pprCoAxBranch!
Diffstat (limited to 'compiler/ghci/Debugger.hs')
| -rw-r--r-- | compiler/ghci/Debugger.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs index 44cf6f3865..0ceffcdcf1 100644 --- a/compiler/ghci/Debugger.hs +++ b/compiler/ghci/Debugger.hs @@ -22,7 +22,8 @@ import Name import Var hiding ( varName ) import VarSet import UniqSupply -import TcType +import Type +import Kind import GHC import Outputable import PprTyThing @@ -207,7 +208,7 @@ pprTypeAndContents id = do dflags <- GHC.getSessionDynFlags let pefas = gopt Opt_PrintExplicitForalls dflags pcontents = gopt Opt_PrintBindContents dflags - pprdId = (pprTyThing pefas . AnId) id + pprdId = (PprTyThing.pprTyThing pefas . AnId) id if pcontents then do let depthBound = 100 |