build-self: Add a dummy (git) module to 'compute-guix-derivation'.

Fixes a regression introduced in
aed0a59405.

* build-aux/build-self.scm (build-program)[fake-git]: New variable.
Use it as an imported module.
This commit is contained in:
Ludovic Courtès 2018-09-13 10:10:49 +02:00
parent 88bfabf111
commit 78c9058dde
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 0 deletions

View File

@ -263,6 +263,9 @@ interface (FFI) of Guile.")
#~(define-module (gcrypt hash) #~(define-module (gcrypt hash)
#:export (sha1 sha256)))) #:export (sha1 sha256))))
(define fake-git
(scheme-file "git.scm" #~(define-module (git))))
(with-imported-modules `(((guix config) (with-imported-modules `(((guix config)
=> ,(make-config.scm)) => ,(make-config.scm))
@ -272,6 +275,11 @@ interface (FFI) of Guile.")
;; adjust %LOAD-PATH later on. ;; adjust %LOAD-PATH later on.
((gcrypt hash) => ,fake-gcrypt-hash) ((gcrypt hash) => ,fake-gcrypt-hash)
;; (guix git-download) depends on (git) but only
;; for peripheral functionality. Provide a dummy
;; (git) to placate it.
((git) => ,fake-git)
,@(source-module-closure `((guix store) ,@(source-module-closure `((guix store)
(guix self) (guix self)
(guix derivations) (guix derivations)