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:
		
							parent
							
								
									ebbfc59c21
								
							
						
					
					
						commit
						3c0e16391e
					
				
					 1 changed files with 11 additions and 5 deletions
				
			
		|  | @ -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) | ||||
|  |  | |||
		Reference in a new issue