Override the logger for CodeAction responses

To avoid very large strings when doing queries to 'Wide_Wide_Image.

We now just print the response's length instead.

For https://gitlab.adacore-it.com/eng/ide/ada_language_server/-/issues/1289

Author: AnthonyLeonardoGracio

source/server/lsp-secure_message_loggers.adb

@@ -255,6 +255,24 @@ package body LSP.Secure_Message_Loggers is
       Self.Output.New_Line (Ok);
    end On_Symbol_Response;
 
+   ----------------------------
+   -- On_CodeAction_Response --
+   ----------------------------
+
+   overriding procedure On_CodeAction_Response
+     (Self  : in out Client_Response_Logger;
+      Id    : LSP.Structures.Integer_Or_Virtual_String;
+      Value : LSP.Structures.Command_Or_CodeAction_Vector_Or_Null) is
+      Ok : Boolean := False;
+   begin
+      Self.Output.Put ("'textDocument/codeAction'", Ok);
+      Self.Put_Id (Id, Ok);
+      Self.Output.Put (" result : ", Ok);
+      Self.Output.Put
+        (VSS.Strings.To_Virtual_String (Value.Length'Wide_Wide_Image), Ok);
+      Self.Output.New_Line (Ok);
+   end On_CodeAction_Response;
+
    -------------------------------
    -- On_DidChange_Notification --
    -------------------------------

source/server/lsp-secure_message_loggers.ads

@@ -70,6 +70,11 @@ package LSP.Secure_Message_Loggers is
       Id    : LSP.Structures.Integer_Or_Virtual_String;
       Value : LSP.Structures.SemanticTokens_Or_Null);
 
+   overriding procedure On_CodeAction_Response
+     (Self  : in out Client_Response_Logger;
+      Id    : LSP.Structures.Integer_Or_Virtual_String;
+      Value : LSP.Structures.Command_Or_CodeAction_Vector_Or_Null);
+
    overriding procedure On_Symbol_Response
      (Self  : in out Client_Response_Logger;
       Id    : LSP.Structures.Integer_Or_Virtual_String;