01/06: maint: Actually check for the availablility of system packages.

[guix-commits]

civodul pushed a commit to branch version-1.1.0
in repository guix.

commit 8e8d984fd6db77bb5c1bec66369e5e99470d416f
Author: Ludovic Courtès <address@hidden>
AuthorDate: Tue Apr 14 15:10:24 2020 +0200

    maint: Actually check for the availablility of system packages.
    
    * etc/release-manifest.scm (%system-manifest): New variable.
    <top level>: Add it in 'concatenate-manifests' call.
---
 etc/release-manifest.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/etc/release-manifest.scm b/etc/release-manifest.scm
index 91471bd..ba2ab57 100644
--- a/etc/release-manifest.scm
+++ b/etc/release-manifest.scm
@@ -93,6 +93,13 @@ TARGET."
                       %base-packages))
                %hydra-supported-systems)))
 
+(define %system-manifest
+  (manifest
+   (append-map (lambda (system)
+                 (map (cut package->manifest-entry* <> system)
+                      %system-packages))
+               '("x86_64-linux" "i686-linux"))))  ;Guix System
+
 (define %cross-manifest
   (manifest
    (append-map (lambda (target)
@@ -115,5 +122,6 @@ TARGET."
 
 ;; Return the union of all three manifests.
 (concatenate-manifests (list %base-manifest
+                             %system-manifest
                              %cross-manifest
                              %cross-bootstrap-manifest))