diff --git a/ghc/InteractiveUI.hs b/ghc/InteractiveUI.hs index a2061c2e10685de25b8d78c50192d7b99afe336b..f88f9108bc7d68a8abebe56a9012f272acd9ab60 100644 --- a/ghc/InteractiveUI.hs +++ b/ghc/InteractiveUI.hs @@ -1627,7 +1627,7 @@ remModulesFromContext as bs = do addImportToContext :: String -> GHCi () addImportToContext str = do idecl <- GHC.parseImportDecl str - _ <- GHC.lookupModule (unLoc (ideclName idecl)) Nothing -- #5836 + _ <- GHC.lookupModule (unLoc (ideclName idecl)) (ideclPkgQual idecl) -- #5836 modifyGHCiState $ \st -> st { remembered_ctx = addNotSubsumed (IIDecl idecl) (remembered_ctx st) , transient_ctx = filter (not . ((IIDecl idecl) `iiSubsumes`))