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

diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs
index 710b68c..a97f8ed 100644
--- a/compiler/iface/LoadIface.lhs
+++ b/compiler/iface/LoadIface.lhs
@@ -196,7 +196,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 +208,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...