diff options
| -rw-r--r-- | compiler/ghci/Debugger.hs | 7 | ||||
| -rw-r--r-- | compiler/ghci/RtClosureInspect.hs | 3 |
2 files changed, 5 insertions, 5 deletions
diff --git a/compiler/ghci/Debugger.hs b/compiler/ghci/Debugger.hs index 55ac4c0b18..d27aedb960 100644 --- a/compiler/ghci/Debugger.hs +++ b/compiler/ghci/Debugger.hs @@ -165,13 +165,12 @@ showTerm term = do expr = "show " ++ showSDoc (ppr bname) _ <- GHC.setSessionDynFlags dflags{log_action=noop_log} txt_ <- withExtendedLinkEnv [(bname, val)] - (GHC.compileExpr expr) + (GHC.compileExpr expr) let myprec = 10 -- application precedence. TODO Infix constructors let txt = unsafeCoerce# txt_ if not (null txt) then - return $ Just$ cparen (prec >= myprec && - needsParens txt) - (text txt) + return $ Just $ cparen (prec >= myprec && needsParens txt) + (text txt) else return Nothing `gfinally` do setSession hsc_env diff --git a/compiler/ghci/RtClosureInspect.hs b/compiler/ghci/RtClosureInspect.hs index 09e0342ca1..4891509ce1 100644 --- a/compiler/ghci/RtClosureInspect.hs +++ b/compiler/ghci/RtClosureInspect.hs @@ -337,7 +337,8 @@ pprTermM y p t = pprDeeper `liftM` ppr_termM y p t ppr_termM y p Term{dc=Left dc_tag, subTerms=tt} = do tt_docs <- mapM (y app_prec) tt - return$ cparen (not(null tt) && p >= app_prec) (text dc_tag <+> pprDeeperList fsep tt_docs) + return $ cparen (not (null tt) && p >= app_prec) + (text dc_tag <+> pprDeeperList fsep tt_docs) ppr_termM y p Term{dc=Right dc, subTerms=tt} {- | dataConIsInfix dc, (t1:t2:tt') <- tt --TODO fixity |