Self-review

alire-project · Sep 30, 2024 · 358e5a2 · 358e5a2
1 parent e022396
commit 358e5a2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/src/alire/alire-builds.adb b/src/alire/alire-builds.adb
@@ -58,10 +58,7 @@ package body Alire.Builds is
                     with Unreferenced;
       begin
          Den.Filesystem.Create_Directory (Dst);
-         Den.Filesystem.Copy (Src, Dst,
-                              Options =>
-                                (Preserve_Permissions => True,
-                                 others               => <>));
+         Den.Filesystem.Copy (Src, Dst);
       exception
          when E : others =>
             Log_Exception (E);

diff --git a/src/alire/alire-directories.adb b/src/alire/alire-directories.adb
@@ -122,7 +122,7 @@ package body Alire.Directories is
                                    Dst_Parent_Folder / Simple_Item;
                   begin
                      if not Den.Exists (Subfolder) then
-                        Ada.Directories.Create_Directory (Subfolder);
+                        Den.Filesystem.Create_Directory (Subfolder);
                      end if;
                      Copy (Full_Item, Subfolder, Excluding);
                   end;