File tree Expand file tree Collapse file tree 1 file changed +4
-0
lines changed Expand file tree Collapse file tree 1 file changed +4
-0
lines changed Original file line number Diff line number Diff line change @@ -103,13 +103,15 @@ package body LSP.Ada_Configurations is
103
103
Index : Positive := From;
104
104
Variables_Names : VSS.String_Vectors.Virtual_String_Vector;
105
105
Variables_Values : VSS.String_Vectors.Virtual_String_Vector;
106
+ Follow_Symlinks : constant Boolean := Self.Follow_Symlinks;
106
107
107
108
procedure Parse_Variables (From : Positive);
108
109
procedure Swap_Variables (Left, Right : Positive);
109
110
110
111
procedure Set
111
112
(Target : in out VSS.Strings.Virtual_String;
112
113
Value : VSS.Strings.Virtual_String);
114
+ -- If Target /= Value then assign Target and set Reload to Trues
113
115
114
116
-- -------------------
115
117
-- Parse_Variables --
@@ -146,6 +148,7 @@ package body LSP.Ada_Configurations is
146
148
begin
147
149
if Target /= Value then
148
150
Target := Value;
151
+ Reload := True;
149
152
end if ;
150
153
end Set ;
151
154
@@ -248,6 +251,7 @@ package body LSP.Ada_Configurations is
248
251
and then JSON (Index).Kind = Boolean_Value
249
252
then
250
253
Self.Follow_Symlinks := JSON (Index).Boolean_Value;
254
+ Reload := Reload or else Follow_Symlinks /= Self.Follow_Symlinks;
251
255
252
256
elsif Name = " documentationStyle"
253
257
and then JSON (Index).Kind = String_Value
You can’t perform that action at this time.
0 commit comments