diff options
Diffstat (limited to 'compiler/ghci')
| -rw-r--r-- | compiler/ghci/Debugger.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs index 4d7f8e3ef0..95d734ea5d 100644 --- a/compiler/ghci/Debugger.hs +++ b/compiler/ghci/Debugger.hs @@ -22,6 +22,7 @@ import GHCi.RemoteTypes import GhcMonad import HscTypes import Id +import IfaceSyn ( showToHeader ) import IfaceEnv( newInteractiveBinder ) import Name import Var hiding ( varName ) @@ -214,7 +215,7 @@ pprTypeAndContents :: GhcMonad m => Id -> m SDoc pprTypeAndContents id = do dflags <- GHC.getSessionDynFlags let pcontents = gopt Opt_PrintBindContents dflags - pprdId = (PprTyThing.pprTyThing . AnId) id + pprdId = (pprTyThing showToHeader . AnId) id if pcontents then do let depthBound = 100 |