projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a399552
)
Remove duplicate call to getDOpts
author
simonpj@microsoft.com
<unknown>
Fri, 22 Sep 2006 19:03:50 +0000
(19:03 +0000)
committer
simonpj@microsoft.com
<unknown>
Fri, 22 Sep 2006 19:03:50 +0000
(19:03 +0000)
compiler/iface/LoadIface.lhs
patch
|
blob
|
history
diff --git
a/compiler/iface/LoadIface.lhs
b/compiler/iface/LoadIface.lhs
index
710b68c
..
a97f8ed
100644
(file)
--- 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
-- 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
; 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!
; 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...
| ImportBySystem <- from, -- system-importing...
modulePackageId (mi_module iface) == thisPackage dflags,
-- a home-package module...