fix: improve error handling for compiler diagnostics

Author: zachallaun

lib/next_ls/extensions/elixir_extension.ex

@@ -24,7 +24,7 @@ defmodule NextLS.ElixirExtension do
   end
 
   @impl GenServer
-  def handle_info({:compiler, diagnostics}, state) do
+  def handle_info({:compiler, diagnostics}, state) when is_list(diagnostics) do
     DiagnosticCache.clear(state.cache, :elixir)
 
     for d <- diagnostics do

lib/next_ls/runtime.ex

@@ -120,7 +120,7 @@ defmodule NextLS.Runtime do
                 NextLS.Logger.log(logger, "The runtime for #{name} has successfully shutdown.")
 
               reason ->
-                NextLS.Logger.error(logger, "The runtime for #{name} has crashed with reason: #{reason}.")
+                NextLS.Logger.error(logger, "The runtime for #{name} has crashed with reason: #{inspect(reason)}.")
             end
         end
       end)
@@ -136,8 +136,8 @@ defmodule NextLS.Runtime do
           |> Path.join("monkey/_next_ls_private_compiler.ex")
           |> then(&:rpc.call(node, Code, :compile_file, [&1]))
           |> tap(fn
-            {:badrpc, :EXIT, {error, _}} ->
-              NextLS.Logger.error(logger, error)
+            {:badrpc, error} ->
+              NextLS.Logger.error(logger, {:badrpc, error})
 
             _ ->
               :ok
@@ -192,15 +192,16 @@ defmodule NextLS.Runtime do
   def handle_call(:compile, from, %{node: node} = state) do
     task =
       Task.Supervisor.async_nolink(state.task_supervisor, fn ->
-        {_, errors} = :rpc.call(node, :_next_ls_private_compiler, :compile, [])
+        case :rpc.call(node, :_next_ls_private_compiler, :compile, []) do
+          {:badrpc, error} ->
+            NextLS.Logger.error(state.logger, {:badrpc, error})
 
-        Registry.dispatch(state.registry, :extensions, fn entries ->
-          for {pid, _} <- entries do
-            send(pid, {:compiler, errors})
-          end
-        end)
+          {_, [_ | _] = diagnostics} ->
+            dispatch_to_extensions(state, {:compiler, diagnostics})
 
-        errors
+          _ ->
+            :ok
+        end
       end)
 
     {:noreply, %{state | compiler_ref: %{task.ref => from}}}
@@ -248,4 +249,10 @@ defmodule NextLS.Runtime do
       true
     end
   end
+
+  defp dispatch_to_extensions(state, message) do
+    Registry.dispatch(state.registry, :extensions, fn entries ->
+      for {pid, _} <- entries, do: send(pid, message)
+    end)
+  end
 end