From 51bac8ed53f7bfa3d5b0bc1e0ab3be1465a017a4 Mon Sep 17 00:00:00 2001 From: Alejandro R Mosteo Date: Thu, 26 Jan 2023 10:35:33 +0100 Subject: [PATCH] Fix error when showing an unavailable binary origin (#1304) This only triggers when a binary origin is lacking entries for the current platform. --- src/alire/alire-origins.adb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/alire/alire-origins.adb b/src/alire/alire-origins.adb index 0c8e5dcd..ac4e6b86 100644 --- a/src/alire/alire-origins.adb +++ b/src/alire/alire-origins.adb @@ -2,6 +2,7 @@ with Ada.Directories; with AAA.Strings; +with Alire.Platforms.Current; with Alire.Root; with Alire.URI; with Alire.Utils.TTY; @@ -234,7 +235,10 @@ package body Alire.Origins is function Get_Hashes (This : Origin) return Hash_Vectors.Vector is (case This.Kind is when Filesystem => This.Data.Hashes, - when Binary_Archive => This.Data.Bin_Archive.As_Data.Hashes, + when Binary_Archive => + (if This.Is_Available (Platforms.Current.Properties) + then This.Data.Bin_Archive.As_Data.Hashes + else Hash_Vectors.Empty_Vector), when Source_Archive => This.Data.Src_Archive.Hashes, when others => Hash_Vectors.Empty_Vector); -- 2.39.5