diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-04-14 15:10:24 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-04-14 16:01:05 +0200 |
| commit | 8e8d984fd6db77bb5c1bec66369e5e99470d416f (patch) | |
| tree | 261bd4abeef85ecd4780ce4ba22c191ad7d00e87 | |
| parent | 0ad60b2a89d6d387236466e0bcdd61ac489fca37 (diff) | |
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.
| -rw-r--r-- | etc/release-manifest.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/etc/release-manifest.scm b/etc/release-manifest.scm index 91471bd03b8..ba2ab57aabf 100644 --- a/etc/release-manifest.scm +++ b/etc/release-manifest.scm | |||
| @@ -93,6 +93,13 @@ TARGET." | |||
| 93 | %base-packages)) | 93 | %base-packages)) |
| 94 | %hydra-supported-systems))) | 94 | %hydra-supported-systems))) |
| 95 | 95 | ||
| 96 | (define %system-manifest | ||
| 97 | (manifest | ||
| 98 | (append-map (lambda (system) | ||
| 99 | (map (cut package->manifest-entry* <> system) | ||
| 100 | %system-packages)) | ||
| 101 | '("x86_64-linux" "i686-linux")))) ;Guix System | ||
| 102 | |||
| 96 | (define %cross-manifest | 103 | (define %cross-manifest |
| 97 | (manifest | 104 | (manifest |
| 98 | (append-map (lambda (target) | 105 | (append-map (lambda (target) |
| @@ -115,5 +122,6 @@ TARGET." | |||
| 115 | 122 | ||
| 116 | ;; Return the union of all three manifests. | 123 | ;; Return the union of all three manifests. |
| 117 | (concatenate-manifests (list %base-manifest | 124 | (concatenate-manifests (list %base-manifest |
| 125 | %system-manifest | ||
| 118 | %cross-manifest | 126 | %cross-manifest |
| 119 | %cross-bootstrap-manifest)) | 127 | %cross-bootstrap-manifest)) |
