File tree Expand file tree Collapse file tree 1 file changed +8
-2
lines changed Expand file tree Collapse file tree 1 file changed +8
-2
lines changed Original file line number Diff line number Diff line change @@ -3121,7 +3121,10 @@ package body LSP.Ada_Handlers is
31213121 end if ;
31223122 Self.Publish_Diagnostics
31233123 (Document => Document,
3124- Other_Diagnostics => [Diagnostic]);
3124+ Other_Diagnostics =>
3125+ (LSP.Structures.Diagnostic_Vectors.Vector'
3126+ ([Diagnostic])
3127+ with null record ));
31253128 end if ;
31263129 exit ;
31273130 end ;
@@ -3864,7 +3867,10 @@ package body LSP.Ada_Handlers is
38643867 & VSS.Strings.Conversions.To_UTF_8_String (Loc.uri));
38653868
38663869 Self.Publish_Diagnostics
3867- (Document => Document, Other_Diagnostics => [Diagnostic]);
3870+ (Document => Document,
3871+ Other_Diagnostics =>
3872+ (LSP.Structures.Diagnostic_Vectors.Vector'([Diagnostic])
3873+ with null record ));
38683874 end if ;
38693875 -- Inform the client that the request failed
38703876 Self.Sender.On_Error_Response
You can’t perform that action at this time.
0 commit comments