From d40a3c6169f72a23a8255d6b829c1495de082085 Mon Sep 17 00:00:00 2001 From: Simon Wright Date: Sun, 31 Dec 2023 12:49:54 +0000 Subject: [PATCH] Report the name of an unreadable directory. * src/alire/alire-index_on_disk.adb (New_Handler.Process_Local_Index): If the Path isn't a writable directory (e.g. because it doesn't exist), add it to the message in Outcome_Failure. --- src/alire/alire-index_on_disk.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/alire/alire-index_on_disk.adb b/src/alire/alire-index_on_disk.adb index bea0c467d..1260a19e0 100644 --- a/src/alire/alire-index_on_disk.adb +++ b/src/alire/alire-index_on_disk.adb @@ -173,7 +173,7 @@ package body Alire.Index_On_Disk is Dir : constant Virtual_File := Create (+Path); begin if not Dir.Is_Directory then - Result := Outcome_Failure ("Not a readable directory"); + Result := Outcome_Failure ("Not a readable directory: " & Path); return New_Invalid_Index; end if;