From 2113fadb7b8c4adfe17c19192746195989a3e214 Mon Sep 17 00:00:00 2001
From: "Alejandro R. Mosteo" <jano@raider>
Date: Thu, 15 Mar 2018 00:02:02 +0100
Subject: [PATCH] Hooks (probably to be discarded)

---
 src/alire-hooks.ads    | 9 +++++++++
 src/alire-releases.ads | 7 +++----
 2 files changed, 12 insertions(+), 4 deletions(-)
 create mode 100644 src/alire-hooks.ads

diff --git a/src/alire-hooks.ads b/src/alire-hooks.ads
new file mode 100644
index 00000000..48f0fc16
--- /dev/null
+++ b/src/alire-hooks.ads
@@ -0,0 +1,9 @@
+with Alire.Origins;
+
+package Alire.Hooks with Preelaborate is
+
+   --  Hackish way to enable Alire to obtain some platform-specific info that only Alr knows how to get
+
+   Version_Getter_Hook : access function (O : Origins.Origin) return String;
+
+end Alire.Hooks;
diff --git a/src/alire-releases.ads b/src/alire-releases.ads
index 2dfbf1d9..687c2c96 100644
--- a/src/alire-releases.ads
+++ b/src/alire-releases.ads
@@ -1,6 +1,5 @@
 with Alire.Conditional;
 with Alire.Dependencies;
---  with Alire.Dependencies.Vectors;
 with Alire.Milestones;
 with Alire.Origins;
 with Alire.Projects;
@@ -109,6 +108,8 @@ package Alire.Releases with Preelaborate is
    
 private
    
+   use Semantic_Versioning;
+   
    use all type Projects.Names;
    
    function All_Properties (R : Release) return Conditional.Properties;      
@@ -140,7 +141,7 @@ private
                          Available          : Alire.Requisites.Tree) return Release is
      (Notes'Length,
       Name,
-      Version,      
+      Version,
       Origin,
       Notes,
       Dependencies,
@@ -152,8 +153,6 @@ private
       Private_Properties,
       Available);
 
-   use Semantic_Versioning;
-
    function "<" (L, R : Release) return Boolean is
      (L.Name < R.Name or else
         (L.Name = R.Name and then