From 2ec5498ec52bca7a8dc3333073da9a6ffa40a880 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 27 Jan 2005 15:53:08 +0000
Subject: [PATCH] [project @ 2005-01-27 15:53:08 by simonpj] Remove redundant
 parens in pretty print

---
 ghc/compiler/coreSyn/PprCore.lhs |   15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index 1c20f51..04aeb5c 100644
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -21,9 +21,6 @@ import CostCentre	( pprCostCentreCore )
 import Var		( Var )
 import Id		( Id, idType, isDataConWorkId_maybe, idLBVarInfo, idArity,
 			  idInfo, idInlinePragma, idOccInfo,
-#ifdef OLD_STRICTNESS
-			  idDemandInfo, 
-#endif
 			  globalIdDetails, isGlobalId, isExportedId, 
 			  isSpecPragmaId, idNewDemandInfo
 			)
@@ -33,11 +30,13 @@ import IdInfo		( IdInfo, megaSeqIdInfo,
 			  specInfo, pprNewStrictness,
 			  workerInfo, ppWorkerInfo,
 			  newStrictnessInfo, cafInfo, ppCafInfo,
+			)
+
 #ifdef OLD_STRICTNESS
-			  cprInfo, ppCprInfo, 
-			  strictnessInfo, ppStrictnessInfo, 
+import Id		( idDemandInfo )
+import IdInfo		( cprInfo, ppCprInfo, strictnessInfo, ppStrictnessInfo ) 
 #endif
-			)
+
 import DataCon		( dataConTyCon )
 import TyCon		( tupleTyConBoxity, isTupleTyCon )
 import Type		( pprParendType, pprType, pprParendKind )
@@ -155,7 +154,7 @@ ppr_expr add_par expr@(App fun arg)
 
 ppr_expr add_par (Case expr var ty [(con,args,rhs)])
   = add_par $
-    sep [sep [ptext SLIT("case") <+> parens (ppr ty) <+> pprCoreExpr expr,
+    sep [sep [ptext SLIT("case") <+> pprParendType ty <+> pprCoreExpr expr,
 	      hsep [ptext SLIT("of"),
 		    ppr_bndr var, 
 		    char '{',
@@ -169,7 +168,7 @@ ppr_expr add_par (Case expr var ty [(con,args,rhs)])
 
 ppr_expr add_par (Case expr var ty alts)
   = add_par $
-    sep [sep [ptext SLIT("case") <+> parens (ppr ty) <+> pprCoreExpr expr,
+    sep [sep [ptext SLIT("case") <+> pprParendType ty <+> pprCoreExpr expr,
 	      ptext SLIT("of") <+> ppr_bndr var <+> char '{'],
 	 nest 2 (sep (punctuate semi (map pprCoreAlt alts))),
 	 char '}'
-- 
1.7.10.4