Commit 9de6064

committed

fix estg pretty printer: indent case scrutinees when necessary, i.e. when they have SourceNotes

1 parent bd3e56d commit 9de6064Copy full SHA for 9de6064

File tree

-3

lines changed

-3

lines changed

Lines changed: 3 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -410,19 +410,19 @@ pprExpr exp = do`
`410`	`410`	`StgLit l -> pretty l`
`411`	`411`	`StgCase x b at [Alt AltDefault [] rhs] -> sep`
`412`	`412`	`[ withStgPoint (SP_CaseScrutineeExpr $ Id b) $`
`413`		`- pprBinder b <+> text "<-" <+> pprExpr x`
	`413`	`+ pprBinder b <+> text "<-" <+> nest 2 (pprExpr x)`
`414`	`414`	`, withStgPoint (SP_AltExpr (Id b) 0) $`
`415`	`415`	`pprExpr rhs`
`416`	`416`	`]`
`417`	`417`	`StgCase x b at [Alt con bndrs rhs] -> sep`
`418`	`418`	`[ withStgPoint (SP_CaseScrutineeExpr $ Id b) $`
`419`		`- pprBinder b <+> text "@" <+> parens (hsep $ pretty con : map (pprBinder) bndrs) <+> text "<-" <+> pprExpr x`
	`419`	`+ pprBinder b <+> text "@" <+> parens (hsep $ pretty con : map (pprBinder) bndrs) <+> text "<-" <+> nest 2 (pprExpr x)`
`420`	`420`	`, withStgPoint (SP_AltExpr (Id b) 0) $`
`421`	`421`	`pprExpr rhs`
`422`	`422`	`]`
`423`	`423`	`StgCase x b at alts -> sep`
`424`	`424`	`[ withStgPoint (SP_CaseScrutineeExpr $ Id b) $`
`425`		`- pprBinder b <+> text "<-" <+> pprExpr x`
	`425`	`+ pprBinder b <+> text "<-" <+> nest 2 (pprExpr x)`
`426`	`426`	`, text "case" <+> pprVar b <+> text "of"`
`427`	`427`	`, indent 2 $ vcat $ putDefaultLast alts [pprAlt (Id b) idx a \| (idx, a) <- zip [0..] alts]`
`428`	`428`	`]`

Comments

(0)