From a39a19254003f593e49fa0b29c8a10444cc204c2 Mon Sep 17 00:00:00 2001 From: Patrick Palka Date: Fri, 30 Mar 2012 23:03:23 -0400 Subject: Respect package qualifier when validating imports in GHCi (#5979) Signed-off-by: Paolo Capriotti --- ghc/InteractiveUI.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'ghc') diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index 045c6a6af4..4525942296 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1688,7 +1688,8 @@ checkAdd ii = do IIDecl d -> do let modname = unLoc (ideclName d) - m <- lookupModuleName modname + pkgqual = ideclPkgQual d + m <- GHC.lookupModule modname pkgqual when safe $ do t <- GHC.isModuleTrusted m when (not t) $ -- cgit v1.2.1