X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FLoadIface.lhs;h=d4cd503ffef282b2c1c9b117732702ca0abf98dd;hp=710b68ce007bffa33838e931bbf4337e4714165c;hb=9da4639011348fb6c318e3cba4b08622f811d9c4;hpb=a835e9faf19400aa6b7999b6f64e60cb1c7737dd

diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs
index 710b68c..d4cd503 100644
--- a/compiler/iface/LoadIface.lhs
+++ b/compiler/iface/LoadIface.lhs
@@ -37,7 +37,6 @@ import BasicTypes	( Version, initialVersion,
 			  Fixity(..), FixityDirection(..), isMarkedStrict )
 import TcRnMonad
 import Type             ( TyThing(..) )
-import Class		( classATs )
 
 import PrelNames	( gHC_PRIM )
 import PrelInfo		( ghcPrimExports )
@@ -52,7 +51,7 @@ import Module
 import OccName		( OccName, mkOccEnv, lookupOccEnv, mkClassTyConOcc,
 			  mkClassDataConOcc, mkSuperDictSelOcc,
 			  mkDataConWrapperOcc, mkDataConWorkerOcc,
-			  mkNewTyCoOcc, mkInstTyTcOcc, mkInstTyCoOcc ) 
+			  mkNewTyCoOcc, mkInstTyCoOcc ) 
 import SrcLoc		( importedSrcLoc )
 import Maybes		( MaybeErr(..) )
 import ErrUtils         ( Message )
@@ -196,7 +195,6 @@ loadInterface doc_str mod from
 
 	-- READ THE MODULE IN
 	; read_result <- findAndReadIface doc_str mod hi_boot_file
-	; dflags <- getDOpts
 	; case read_result of {
 	    Failed err -> do
 	  	{ let fake_iface = emptyModIface mod
@@ -209,7 +207,7 @@ loadInterface doc_str mod from
 		; returnM (Failed err) } ;
 
 	-- Found and parsed!
-	    Succeeded (iface, file_path) 			-- Sanity check:
+	    Succeeded (iface, file_path) 	-- Sanity check:
 		| ImportBySystem <- from,	--   system-importing...
 		  modulePackageId (mi_module iface) == thisPackage dflags,
 		  				--   a home-package module...