diff options
| author | Patrick Palka <patrick@parcs.ath.cx> | 2012-03-30 23:03:23 -0400 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-03-31 13:47:29 +0100 |
| commit | a39a19254003f593e49fa0b29c8a10444cc204c2 (patch) | |
| tree | d3f1935a9678efcaf7e2a6a924953a12d2768e65 /ghc | |
| parent | 83d9b3805d271dc361d48187957498b3138ae62a (diff) | |
| download | haskell-a39a19254003f593e49fa0b29c8a10444cc204c2.tar.gz | |
Respect package qualifier when validating imports in GHCi (#5979)
Signed-off-by: Paolo Capriotti <p.capriotti@gmail.com>
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/InteractiveUI.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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) $ |