Debug logs

This commit is contained in:
Alejandro R. Mosteo
2018-02-20 00:41:30 +01:00
parent 271d4aedfd
commit cd81bd6507
+1
View File
@@ -232,6 +232,7 @@ package body Alire.OS_Lib is
Ada.Directories.Set_Directory (Path);
Guard.Initialized := True;
else
Log ("Staying at folder: " & Ada.Directories.Current_Directory, Debug);
Guard.Initialized := False;
end if;
end return;