From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 14:33:53 +0000 (+0000)
Subject: (F)SLIT -> (f)sLit in HscTypes
X-Git-Tag: 2008-05-28~279
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=48b3dc4fe2c2812bb91d430ae87bb563ca3cf1fc

(F)SLIT -> (f)sLit in HscTypes
---

diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index ffb66ee..48fb2b4 100644
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -330,8 +330,8 @@ hptRules hsc_env deps
     , let rules = case lookupUFM hpt mod of
 		    Just info -> md_rules (hm_details info)
 		    Nothing -> pprTrace "WARNING in hptRules" msg [] 
-	  msg = vcat [ptext SLIT("missing module") <+> ppr mod,
-		      ptext SLIT("Probable cause: out-of-date interface files")]
+	  msg = vcat [ptext (sLit "missing module") <+> ppr mod,
+		      ptext (sLit "Probable cause: out-of-date interface files")]
 			-- This really shouldn't happen, but see Trac #962
 
 	-- And get its dfuns