We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents c03852f + 13cadce commit c541993Copy full SHA for c541993
source/ada/lsp-ada_handlers-project_file_commands.adb
@@ -61,8 +61,12 @@ package body LSP.Ada_Handlers.Project_File_Commands is
61
begin
62
if Handler.Project_Tree.Is_Defined then
63
Element := Handler.Project_Tree.Root_Project;
64
- Value := VSS.Strings.Conversions.To_Virtual_String
65
- (URIs.Conversions.From_File (String (Element.Path_Name.Value)));
+ if Element.Is_Defined then
+ Value :=
66
+ VSS.Strings.Conversions.To_Virtual_String
67
+ (URIs.Conversions.From_File
68
+ (String (Element.Path_Name.Value)));
69
+ end if;
70
end if;
71
72
Response := (Is_Null => False, Value => <>);
0 commit comments