me
/
guix
Archived
1
0
Fork 0

system: hurd: Remove custom <manifest> gexp compiler.

This is superseded by <profile>, which was added in
ef674a24c5.

* gnu/system/hurd.scm (compile-manifest): Remove.
(cross-hurd-image)[system-profile]: Define using 'profile'.
master
Ludovic Courtès 2020-05-27 12:12:46 +02:00
parent 9549f0283a
commit c041c360b7
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 12 deletions

View File

@ -41,16 +41,6 @@
;;; ;;;
;;; Code: ;;; Code:
;; XXX: Surely this belongs in (guix profiles), but perhaps we need high-level
;; <profile> objects so one can specify hooks, etc.?
(define-gexp-compiler (compile-manifest (manifest
(@@ (guix profiles) <manifest>))
system target)
"Lower MANIFEST as a profile."
(profile-derivation manifest
#:system system
#:target target))
(define %base-packages/hurd (define %base-packages/hurd
(list hurd bash coreutils file findutils grep sed (list hurd bash coreutils file findutils grep sed
guile-3.0 guile-colorized guile-readline guile-3.0 guile-colorized guile-readline
@ -71,8 +61,10 @@
(manifest-entry-dependencies entry))))) (manifest-entry-dependencies entry)))))
(define system-profile (define system-profile
(map-manifest-entries cross-built-entry (profile
(packages->manifest %base-packages/hurd))) (content
(map-manifest-entries cross-built-entry
(packages->manifest %base-packages/hurd)))))
(define grub.cfg (define grub.cfg
(let ((hurd (cross-built hurd)) (let ((hurd (cross-built hurd))