From 2dd1c09bc21f61d4334aa148e4e3d75d015018bb Mon Sep 17 00:00:00 2001 From: Fabien Chouteau Date: Fri, 23 Feb 2024 11:23:43 +0100 Subject: [PATCH] Alire.Index_On_Disk: improve error message --- src/alire/alire-index_on_disk.adb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/alire/alire-index_on_disk.adb b/src/alire/alire-index_on_disk.adb index 1260a19e0..e1553966b 100644 --- a/src/alire/alire-index_on_disk.adb +++ b/src/alire/alire-index_on_disk.adb @@ -99,7 +99,8 @@ package body Alire.Index_On_Disk is return Outcome_Success; exception when E : others => - return Outcome_From_Exception (E, "Could not delete index directory"); + return Outcome_From_Exception + (E, "Could not delete index directory: " & This.Metadata_Directory); end Delete; ----------