X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Fstranal%2FStrictAnal.lhs;h=04632053ceafdd51460a1e8d71e5ad11d4c4a355;hb=f5d4c3239e57b0396672ffc302961f84398d730e;hp=7adbe3fd5ae7fa4e171184a24d9db113a76c02a4;hpb=b9e1d7891fbcacb1ebe66248124296c4ffc7d3d0;p=ghc-hetmet.git diff --git a/compiler/stranal/StrictAnal.lhs b/compiler/stranal/StrictAnal.lhs index 7adbe3f..0463205 100644 --- a/compiler/stranal/StrictAnal.lhs +++ b/compiler/stranal/StrictAnal.lhs @@ -445,9 +445,9 @@ tick_demanded var (tot, demanded) else demanded) pp_stats (SaStats tlam dlam tc dc tlet dlet) - = hcat [ptext SLIT("Lambda vars: "), int (iBox dlam), char '/', int (iBox tlam), - ptext SLIT("; Case vars: "), int (iBox dc), char '/', int (iBox tc), - ptext SLIT("; Let vars: "), int (iBox dlet), char '/', int (iBox tlet) + = hcat [ptext (sLit "Lambda vars: "), int (iBox dlam), char '/', int (iBox tlam), + ptext (sLit "; Case vars: "), int (iBox dc), char '/', int (iBox tc), + ptext (sLit "; Let vars: "), int (iBox dlet), char '/', int (iBox tlet) ] #else /* OMIT_STRANAL_STATS */