X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FDemand.lhs;h=d85315aa3b849b389127f947e061af723156c8be;hb=7df9b88b9e0565f438f16d8005526ffda80a1dbe;hp=df2758ad138b2afdfb1ea49f4f3e205245905e55;hpb=bfc2cfa13fd397bb08b3267b12200c0e0763128a;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/Demand.lhs b/compiler/basicTypes/Demand.lhs
index df2758a..d85315a 100644
--- a/compiler/basicTypes/Demand.lhs
+++ b/compiler/basicTypes/Demand.lhs
@@ -119,7 +119,7 @@ isPrim _      = False
 pprDemands :: [Demand] -> Bool -> SDoc
 pprDemands demands bot = hcat (map pprDemand demands) <> pp_bot
 		       where
-			 pp_bot | bot       = ptext SLIT("B")
+			 pp_bot | bot       = ptext (sLit "B")
 				| otherwise = empty
 
 
@@ -135,7 +135,7 @@ pprDemand (WwUnpack wu args)     = char ch <> parens (hcat (map pprDemand args))
 
 instance Outputable Demand where
     ppr (WwLazy False) = empty
-    ppr other_demand   = ptext SLIT("__D") <+> pprDemand other_demand
+    ppr other_demand   = ptext (sLit "__D") <+> pprDemand other_demand
 
 instance Show Demand where
     showsPrec p d = showsPrecSDoc p (ppr d)