channels: Add Guile-Git as a dependency of external channels.

Fixes a regression introduced in
aed0a59405 whereby external channels would
fail to build due to the lack of a (git) module.

Reported by Alex ter Weele on #guix.

* guix/channels.scm (channel-instance-derivations)[guile-gcrypt]:
Remove.
[dependencies]: New variable.
Use it in the 2nd argument to 'build-channel-instance'.
This commit is contained in:
Ludovic Courtès 2018-09-16 21:58:19 +02:00
parent ebbfc59c21
commit 3c0e16391e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 5 deletions

View File

@ -207,10 +207,16 @@ INSTANCES."
(guix-channel? (channel-instance-channel instance)))
instances))
;; Guile-Gcrypt is a dependency of CORE-INSTANCE.
(define guile-gcrypt
(module-ref (resolve-interface '(gnu packages gnupg))
'guile-gcrypt))
(define dependencies
;; Dependencies of CORE-INSTANCE.
;; FIXME: It would be best not to hard-wire this information here and
;; instead query it to CORE-INSTANCE.
(list (module-ref (resolve-interface '(gnu packages gnupg))
'guile-gcrypt)
(module-ref (resolve-interface '(gnu packages guile))
'guile-git)
(module-ref (resolve-interface '(gnu packages guile))
'guile-bytestructures)))
(mlet %store-monad ((core (build-channel-instance core-instance)))
(mapm %store-monad
@ -218,7 +224,7 @@ INSTANCES."
(if (eq? instance core-instance)
(return core)
(build-channel-instance instance
(list core guile-gcrypt))))
(cons core dependencies))))
instances)))
(define (whole-package-for-legacy name modules)