From 28715c4c3ba8d48f58bd6f6735a225f335b73566 Mon Sep 17 00:00:00 2001
From: "Alejandro R. Mosteo" <alejandro@mosteo.com>
Date: Sat, 3 Mar 2018 18:49:40 +0100
Subject: [PATCH] Fixed bug with origin fields

---
 src/alire-releases.ads | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/alire-releases.ads b/src/alire-releases.ads
index 9419ffbb..40186e6e 100644
--- a/src/alire-releases.ads
+++ b/src/alire-releases.ads
@@ -150,12 +150,16 @@ private
    function Default_Executable (R : Release) return String is
       (R.Name & OS_Lib.Exe_Suffix);
 
+   use all type Origins.Kinds;
    function Image (R : Release) return Path_String is
      (R.Name & "_" &
         Image (R.Version) & "_" &
-      (if R.Origin.Commit'Length <= 8 
-       then R.Origin.Commit
-       else R.Origin.Commit (R.Origin.Commit'First .. R.Origin.Commit'First + 7)));
+      (case R.Origin.Kind is
+          when Filesystem => "filesystem",
+          when Native     => "native",
+          when Git | Hg   => (if R.Origin.Commit'Length <= 8 
+                              then R.Origin.Commit
+                              else R.Origin.Commit (R.Origin.Commit'First .. R.Origin.Commit'First + 7))));
    
    --  Dependency helpers