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
3121
3121
end if ;
3122
3122
Self.Publish_Diagnostics
3123
3123
(Document => Document,
3124
- Other_Diagnostics => [Diagnostic]);
3124
+ Other_Diagnostics =>
3125
+ (LSP.Structures.Diagnostic_Vectors.Vector'
3126
+ ([Diagnostic])
3127
+ with null record ));
3125
3128
end if ;
3126
3129
exit ;
3127
3130
end ;
@@ -3864,7 +3867,10 @@ package body LSP.Ada_Handlers is
3864
3867
& VSS.Strings.Conversions.To_UTF_8_String (Loc.uri));
3865
3868
3866
3869
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 ));
3868
3874
end if ;
3869
3875
-- Inform the client that the request failed
3870
3876
Self.Sender.On_Error_Response
You can’t perform that action at this time.
0 commit comments