Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/3108accd634a521b25471df19f063c2061d6d3ee >--------------------------------------------------------------- commit 3108accd634a521b25471df19f063c2061d6d3ee Author: David Terei <[email protected]> Date: Wed Aug 24 18:32:56 2011 -0700 Formatting fixes >--------------------------------------------------------------- compiler/ghci/Debugger.hs | 7 +++---- 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 55ac4c0..d27aedb 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 09e0342..4891509 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
