X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fspecialise%2FRules.lhs;h=000df944cfcc1907447b9fcc7ebb63a73a74b671;hb=e2b6259e321fe2d1d4eb5724cd9fabaa6e8a818e;hp=6a4dff08088203cc634894cc394be1558a2737be;hpb=7ecf87b26ca50c1b6def186c32f4dfa0e9cedb97;p=ghc-hetmet.git

diff --git a/compiler/specialise/Rules.lhs b/compiler/specialise/Rules.lhs
index 6a4dff0..000df94 100644
--- a/compiler/specialise/Rules.lhs
+++ b/compiler/specialise/Rules.lhs
@@ -275,10 +275,10 @@ findBest target (rule1,ans1) ((rule2,ans2):prs)
 			| otherwise          = doubleQuotes (ftext (ru_name rule))
 		in pprTrace "Rules.findBest: rule overlap (Rule 1 wins)"
 			 (vcat [if opt_PprStyle_Debug then 
-				   ptext SLIT("Expression to match:") <+> ppr fn <+> sep (map ppr args)
+				   ptext (sLit "Expression to match:") <+> ppr fn <+> sep (map ppr args)
 				else empty,
-				ptext SLIT("Rule 1:") <+> pp_rule rule1, 
-				ptext SLIT("Rule 2:") <+> pp_rule rule2]) $
+				ptext (sLit "Rule 1:") <+> pp_rule rule1, 
+				ptext (sLit "Rule 2:") <+> pp_rule rule2]) $
 		findBest target (rule1,ans1) prs
   | otherwise = findBest target (rule1,ans1) prs
   where
@@ -832,9 +832,9 @@ ruleAppCheck_help phase fn args rules
     check_rule rule = rule_herald rule <> colon <+> rule_info rule
 
     rule_herald (BuiltinRule { ru_name = name })
-	= ptext SLIT("Builtin rule") <+> doubleQuotes (ftext name)
+	= ptext (sLit "Builtin rule") <+> doubleQuotes (ftext name)
     rule_herald (Rule { ru_name = name })
-	= ptext SLIT("Rule") <+> doubleQuotes (ftext name)
+	= ptext (sLit "Rule") <+> doubleQuotes (ftext name)
 
     rule_info rule
 	| Just _ <- matchRule noBlackList emptyInScopeSet args rough_args rule