X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FLoadIface.lhs;fp=compiler%2Fiface%2FLoadIface.lhs;h=cedc4473b5e5b618943e81764609a5a01fe921fe;hp=3a4cfe539580e856e552234927fbf3b7d326931c;hb=4201e0f80cf3b47093b60c47d7bf733f17912d81;hpb=b70fc87dfe3b38b4cbc76285bccbce16d3ac6914

diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs
index 3a4cfe5..cedc447 100644
--- a/compiler/iface/LoadIface.lhs
+++ b/compiler/iface/LoadIface.lhs
@@ -257,6 +257,7 @@ loadInterface doc_str mod from
                }
 
 	; updateEps_  $ \ eps -> 
+           if elemModuleEnv mod (eps_PIT eps) then eps else
 	    eps { 
 	      eps_PIT          = extendModuleEnv (eps_PIT eps) mod final_iface,
 	      eps_PTE          = addDeclsToPTE   (eps_PTE eps) new_eps_decls,