From 9bd1c3220de423b2b5fa19938e3439cdf0323cb5 Mon Sep 17 00:00:00 2001 From: "Alejandro R. Mosteo" Date: Sat, 11 Nov 2023 21:30:11 +0100 Subject: [PATCH] Self-review --- src/alire/alire-publish.adb | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/src/alire/alire-publish.adb b/src/alire/alire-publish.adb index 84f4098a4..91ed002a5 100644 --- a/src/alire/alire-publish.adb +++ b/src/alire/alire-publish.adb @@ -63,15 +63,6 @@ package body Alire.Publish is -- generating an error. E.g., if the user doesn't want to submit online -- after successful manifest generation. - --------------- - -- Full_Path -- - --------------- - - function Full_Path (Path : Any_Path) return Any_Path - is (if Directories.Adirs.Exists (Path) - then Directories.Adirs.Full_Name (Path) - else Path); - ----------------------- -- Check_Root_Status -- ----------------------- @@ -83,6 +74,16 @@ package body Alire.Publish is -- Path is supplied by the user and may not be a good path. Root has -- been attempted to be detected at Path. use all type Roots.Optional.States; + + --------------- + -- Full_Path -- + --------------- + + function Full_Path (Path : Any_Path) return Any_Path + is (if Directories.Adirs.Exists (Path) + then Directories.Adirs.Full_Name (Path) + else Path); + begin case Root.Status is when Outside =>