diff --git a/src/alire-containers.adb b/src/alire-containers.adb index 0b58f1f3..6ca2f2c7 100644 --- a/src/alire-containers.adb +++ b/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 -- ------------ diff --git a/src/alire-containers.ads b/src/alire-containers.ads index aeb50a65..05bef5b3 100644 --- a/src/alire-containers.ads +++ b/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;