Fixes

Author: wz1000

ghcide/src/Development/IDE/Core/Compile.hs

@@ -1652,7 +1652,7 @@ lookupName :: HscEnv
            -> IO (Maybe TyThing)
 lookupName _ name
   | Nothing <- nameModule_maybe name = pure Nothing
-lookupName hsc_env name = do
+lookupName hsc_env name = handle $ do
 #if MIN_VERSION_ghc(9,2,0)
   mb_thing <- liftIO $ lookupType hsc_env name
 #else
@@ -1671,6 +1671,8 @@ lookupName hsc_env name = do
         case res of
           Util.Succeeded x -> return (Just x)
           _ -> return Nothing
+  where
+    handle x = x `catch` \(_ :: IOEnvFailure) -> pure Nothing
 
 pathToModuleName :: FilePath -> ModuleName
 pathToModuleName = mkModuleName . map rep

ghcide/src/Development/IDE/Spans/Documentation.hs

@@ -79,7 +79,9 @@ lookupKind env =
     fmap (fromRight Nothing) . catchSrcErrors (hsc_dflags env) "span" . lookupName env
 
 getDocumentationTryGhc :: HscEnv -> Name -> IO SpanDoc
-getDocumentationTryGhc env n = fromMaybe emptySpanDoc . listToMaybe <$> getDocumentationsTryGhc env [n]
+getDocumentationTryGhc env n =
+  (fromMaybe emptySpanDoc . listToMaybe <$> getDocumentationsTryGhc env [n])
+    `catch` (\(_ :: IOEnvFailure) -> pure emptySpanDoc)
 
 getDocumentationsTryGhc :: HscEnv -> [Name] -> IO [SpanDoc]
 getDocumentationsTryGhc env names = do

ghcide/test/exe/Main.hs

@@ -1983,7 +1983,7 @@ completionDocTests =
         , "foo = ()"
         , "bar = fo"
         ]
-      test doc (Position 3 8) "foo" Nothing ["*Defined at line 3, column 1 in this module*\n* * *\ndocdoc\n"]
+      test doc (Position 3 8) "foo" Nothing ["*Defined at line 3, column 1 in this module*\n* * *\n\n\ndocdoc\n"]
   , testSession "local multi line doc with '\\n'" $ do
       doc <- createDoc "A.hs" "haskell" $ T.unlines
         [ "module A where"
@@ -1992,7 +1992,7 @@ completionDocTests =
         , "foo = ()"
         , "bar = fo"
         ]
-      test doc (Position 4 8) "foo" Nothing ["*Defined at line 4, column 1 in this module*\n* * *\n abcabc\n"]
+      test doc (Position 4 8) "foo" Nothing ["*Defined at line 4, column 1 in this module*\n* * *\n\n\nabcabc\n"]
   , testSession "local multi line doc without '\\n'" $ do
       doc <- createDoc "A.hs" "haskell" $ T.unlines
         [ "module A where"
@@ -2002,7 +2002,7 @@ completionDocTests =
         , "foo = ()"
         , "bar = fo"
         ]
-      test doc (Position 5 8) "foo" Nothing ["*Defined at line 5, column 1 in this module*\n* * *\n     abcabc\n\ndef\n"]
+      test doc (Position 5 8) "foo" Nothing ["*Defined at line 5, column 1 in this module*\n* * *\n\n\nabcabc \n\ndef\n"]
   , testSession "extern empty doc" $ do
       doc <- createDoc "A.hs" "haskell" $ T.unlines
         [ "module A where"