File tree Expand file tree Collapse file tree 1 file changed +6
-2
lines changed Expand file tree Collapse file tree 1 file changed +6
-2
lines changed Original file line number Diff line number Diff line change @@ -230,6 +230,10 @@ procedure LSP.Ada_Driver is
230230 LSP.GNATCOLL_Tracers.Create (" ALS.MAIN" , From_Config);
231231 -- Main trace for the LSP.
232232
233+ Server_Logger_Trace : constant LSP.GNATCOLL_Tracers.Tracer :=
234+ LSP.GNATCOLL_Tracers.Create (" ALS.MAIN.LOGGER" , Off);
235+ -- Trace that logs all the requests/responses parameters.
236+
233237 In_Trace : constant LSP.GNATCOLL_Tracers.Tracer :=
234238 LSP.GNATCOLL_Tracers.Create (" ALS.IN" , Off);
235239 Out_Trace : constant LSP.GNATCOLL_Tracers.Tracer :=
@@ -499,8 +503,8 @@ begin
499503 end ;
500504 end if ;
501505
502- In_Stream.Initialize (Trace_Handle (Server_Trace ));
503- Out_Stream.Initialize (Trace_Handle (Server_Trace ));
506+ In_Stream.Initialize (Trace_Handle (Server_Logger_Trace ));
507+ Out_Stream.Initialize (Trace_Handle (Server_Logger_Trace ));
504508
505509 Tracer.Initialize (Server_Trace, In_Trace, Out_Trace);
506510 Tracer.Trace (" ALS version: " & $VERSION & " (" & $BUILD_DATE & " )" );
You can’t perform that action at this time.
0 commit comments