From fca93fc58a8ff4f662d06e089d49f752ed4224ca Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Fri, 22 Sep 2006 19:03:50 +0000
Subject: [PATCH] Remove duplicate call to getDOpts

---
 compiler/iface/LoadIface.lhs |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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