fix: unify result in server to client request

Author: mhanberg

lib/gen_lsp.ex

@@ -244,6 +244,8 @@ defmodule GenLSP do
           timeout
         )
 
+      result = unify!(request.__struct__.result(), result)
+
       {result, %{id: request.id, method: request.method}}
     end)
   end
@@ -417,6 +419,11 @@ defmodule GenLSP do
     output
   end
 
+  defp unify!(schematic, structure) do
+    {:ok, output} = Schematic.unify(schematic, structure)
+    output
+  end
+
   @doc false
   def system_continue(parent, deb, state) do
     loop(state, parent, deb)

test/gen_lsp_test.exs

@@ -86,6 +86,22 @@ defmodule GenLSPTest do
       nil
     end)
 
+    assert_request(client, "window/showMessageRequest", 1000, fn params ->
+      assert params == %{
+               "type" => 1,
+               "message" =>
+                 "The NextLS runtime failed with errors on dependencies. Would you like to re-fetch them?",
+               "actions" => [
+                 %{"title" => "yes"},
+                 %{"title" => "no"}
+               ]
+             }
+
+      %{"title" => "yes"}
+    end)
+
+    assert_receive %GenLSP.Structures.MessageActionItem{title: "yes"}
+
     assert_notification "window/logMessage", %{"message" => "done initializing"}, 500
   end
 

test/support/example_server.ex

@@ -55,6 +55,22 @@ defmodule GenLSPTest.ExampleServer do
       }
     })
 
+    result =
+      GenLSP.request(lsp, %GenLSP.Requests.WindowShowMessageRequest{
+        id: System.unique_integer([:positive]),
+        params: %GenLSP.Structures.ShowMessageRequestParams{
+          type: GenLSP.Enumerations.MessageType.error(),
+          message:
+            "The NextLS runtime failed with errors on dependencies. Would you like to re-fetch them?",
+          actions: [
+            %GenLSP.Structures.MessageActionItem{title: "yes"},
+            %GenLSP.Structures.MessageActionItem{title: "no"}
+          ]
+        }
+      })
+
+    send(lsp.assigns.test_pid, result)
+
     GenLSP.log(lsp, "done initializing")
 
     {:noreply, lsp}