X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fstranal%2FStrictAnal.lhs;h=04632053ceafdd51460a1e8d71e5ad11d4c4a355;hp=7adbe3fd5ae7fa4e171184a24d9db113a76c02a4;hb=f5d4c3239e57b0396672ffc302961f84398d730e;hpb=22491570f2e5fe37559f79b7eb637a6576863963

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 */