X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FLoadIface.lhs;h=ce08f6d720a2d4b0f08bd495ae64f59e1408de4a;hb=a90dc3907a491bfb478262441534b24fb0eb22f4;hp=3a4cfe539580e856e552234927fbf3b7d326931c;hpb=328681951873b54dade3d0ecef2bea9bf97fff29;p=ghc-hetmet.git

diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs
index 3a4cfe5..ce08f6d 100644
--- a/compiler/iface/LoadIface.lhs
+++ b/compiler/iface/LoadIface.lhs
@@ -42,7 +42,7 @@ import Module
 import Maybes
 import ErrUtils
 import Finder
-import LazyUniqFM
+import UniqFM
 import StaticFlags
 import Outputable
 import BinIface
@@ -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,