From: simonpj@microsoft.com <unknown>
Date: Fri, 22 Sep 2006 19:03:50 +0000 (+0000)
Subject: Remove duplicate call to getDOpts
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=fca93fc58a8ff4f662d06e089d49f752ed4224ca

Remove duplicate call to getDOpts
---

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...