Better expression requisites

This commit is contained in:
Alejandro R Mosteo
2018-03-09 10:32:30 +01:00
parent a2188c5971
commit 8ddac31165
12 changed files with 79 additions and 126 deletions
+3 -3
View File
@@ -21,11 +21,11 @@ package body Alire.GPR is
begin
case V.Kind is
when Free_String =>
return V.Name & " = <string>";
return V.Name & " := <string>";
when Enumeration =>
return V.Name & " = " & Listify (V.Values);
return V.Name & " := " & Listify (V.Values);
when External =>
return V.Name & " = " & V.Value.First_Element;
return V.Name & " := " & V.Value.First_Element;
end case;
end Image;