Check that imported modules actually exist (#5836)
authorSimon Marlow <marlowsd@gmail.com>
Wed, 1 Feb 2012 12:57:54 +0000 (12:57 +0000)
committerPaolo Capriotti <p.capriotti@gmail.com>
Tue, 6 Mar 2012 14:35:25 +0000 (14:35 +0000)
MERGED from commit e46d26686034448a311f48f7e685f159af865d7c

ghc/InteractiveUI.hs

index 8b43dfa..139e841 100644 (file)
@@ -1626,6 +1626,7 @@ remModulesFromContext as bs = do
 addImportToContext :: String -> GHCi ()
 addImportToContext str = do
   idecl <- GHC.parseImportDecl str
+  _ <- GHC.lookupModule (unLoc (ideclName idecl)) Nothing  -- #5836
   modifyGHCiState $ \st ->
      st { remembered_ctx = addNotSubsumed (IIDecl idecl) (remembered_ctx st) }
   setGHCContextFromGHCiState