Include, function form

src/alire-containers.adb

@@ -11,6 +11,17 @@ package body Alire.Containers is
       end return;
    end Excluding;
 
+   ---------------
+   -- Including --
+   ---------------
+
+   function Including (Map : Release_Map; Release : Releases.Release) return Release_Map is
+   begin
+      return New_Map : Release_Map := Map do
+         New_Map.Include (Release.Project, Release);
+      end return;
+   end Including;
+
    ------------
    -- To_Map --
    ------------

src/alire-containers.ads

@@ -39,6 +39,9 @@ package Alire.Containers with Preelaborate is
 
    function Excluding (Map : Release_Map; Name : Alire.Project) return Release_Map;
 
+   function Including (Map : Release_Map; Release : Releases.Release) return Release_Map;
+   --  Finds the current release (if existing) and replaces/adds the new Release
+
    function To_Map (R : Releases.Release) return Release_Map;
 
 end Alire.Containers;