X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FHscTypes.lhs;h=48fb2b4554843f914be6ea6228437b6f2fe118c9;hb=a700f4ed45ddb3a5d16aee62b11febf721c915cc;hp=72229ecca6937a4c4863c868dd98b15e6ca4a274;hpb=28f7bda61e5f3b2a8e3711ee1f93e863ecb7620b;p=ghc-hetmet.git

diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index 72229ec..48fb2b4 100644
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -110,9 +110,9 @@ import Maybes		( orElse, expectJust, catMaybes )
 import Outputable
 import BreakArray
 import SrcLoc		( SrcSpan, Located )
-import UniqFM		( lookupUFM, eltsUFM, emptyUFM )
+import LazyUniqFM		( lookupUFM, eltsUFM, emptyUFM )
 import UniqSupply	( UniqSupply )
-import FastString	( FastString )
+import FastString
 import StringBuffer	( StringBuffer )
 
 import System.FilePath
@@ -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
@@ -629,9 +629,6 @@ data ForeignStubs = NoStubs
                                       	-- 	"foreign exported" functions
 			SDoc 		-- C stubs to use when calling
                                         -- 	"foreign exported" functions
-			[FastString] 	-- Headers that need to be included
-				        -- 	into C code generated for this module
-
 \end{code}
 
 \begin{code}