Change the last few (F)SLIT's into (f)sLit's

[ghc-hetmet.git] / compiler / stranal / StrictAnal.lhs

diff --git a/compiler/stranal/StrictAnal.lhs b/compiler/stranal/StrictAnal.lhs
index 7adbe3f..0463205 100644 (file)
--- 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 */