From 50f5c2f6b2b4798601779d5229e39cf10a2f7734 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Thu, 20 Apr 2023 10:15:19 +1000 Subject: [PATCH] lace.environ.paths: Use 'shell.Directories' instead of 'shell.Directory_Iteration'. --- 1-base/lace/source/environ/lace-environ-paths.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/1-base/lace/source/environ/lace-environ-paths.adb b/1-base/lace/source/environ/lace-environ-paths.adb index 1d74018..bd3d015 100644 --- a/1-base/lace/source/environ/lace-environ-paths.adb +++ b/1-base/lace/source/environ/lace-environ-paths.adb @@ -5,7 +5,7 @@ with posix.file_Status, posix.Calendar, - shell.Directory_Iteration, + shell.Directories, lace.Text.all_Tokens, @@ -394,7 +394,7 @@ is function contents_Count (Self : in Folder; recurse : in Boolean := False) return Natural is - use shell.Directory_Iteration, + use shell.Directories, ada.Directories; Count : Natural := 0;