Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
2ec5498e
Commit
2ec5498e
authored
Jan 27, 2005
by
simonpj
Browse files
[project @ 2005-01-27 15:53:08 by simonpj]
Remove redundant parens in pretty print
parent
dd08967f
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/coreSyn/PprCore.lhs
View file @
2ec5498e
...
...
@@ -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, ppCpr
Info
,
strictnessInfo, ppStrictnessInfo
,
import Id ( idDemand
Info
)
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") <+> paren
s (ppr
ty
)
<+> pprCoreExpr expr,
sep [sep [ptext SLIT("case") <+> p
prP
aren
dType
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") <+> paren
s (ppr
ty
)
<+> pprCoreExpr expr,
sep [sep [ptext SLIT("case") <+> p
prP
aren
dType
ty <+> pprCoreExpr expr,
ptext SLIT("of") <+> ppr_bndr var <+> char '{'],
nest 2 (sep (punctuate semi (map pprCoreAlt alts))),
char '}'
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment