Formatting fixes

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

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