Formatting fixes
authorDavid Terei <davidterei@gmail.com>
Thu, 25 Aug 2011 01:32:56 +0000 (18:32 -0700)
committerDavid Terei <davidterei@gmail.com>
Thu, 25 Aug 2011 01:33:25 +0000 (18:33 -0700)
compiler/ghci/Debugger.hs
compiler/ghci/RtClosureInspect.hs

index 55ac4c0..d27aedb 100644 (file)
@@ -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
index 09e0342..4891509 100644 (file)
@@ -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