gexp: Remove workarounds for <https://bugs.gnu.org/15602>.

* gnu/services/base.scm (hydra-key-authorization)[aaa]: Remove.
[default-acl]: Don't import it.
* guix/scripts/pack.scm (store-database)[build]: Don't import
(gnu build install).
This commit is contained in:
Ludovic Courtès 2019-04-04 17:28:00 +02:00
parent a31174e896
commit c1ef50ac79
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 1 additions and 15 deletions

View File

@ -1515,19 +1515,9 @@ GID."
(define (hydra-key-authorization keys guix) (define (hydra-key-authorization keys guix)
"Return a gexp with code to register KEYS, a list of files containing 'guix "Return a gexp with code to register KEYS, a list of files containing 'guix
archive' public keys, with GUIX." archive' public keys, with GUIX."
(define aaa
;; XXX: Terrible hack to work around <https://bugs.gnu.org/15602>: this
;; forces (guix config) and (guix utils) to be loaded upfront, so that
;; their run-time symbols are defined.
(scheme-file "aaa.scm"
#~(define-module (guix aaa)
#:use-module (guix config)
#:use-module (guix memoization))))
(define default-acl (define default-acl
(with-extensions (list guile-gcrypt) (with-extensions (list guile-gcrypt)
(with-imported-modules `(((guix config) => ,(make-config.scm)) (with-imported-modules `(((guix config) => ,(make-config.scm))
((guix aaa) => ,aaa)
,@(source-module-closure '((guix pki)) ,@(source-module-closure '((guix pki))
#:select? not-config?)) #:select? not-config?))
(computed-file "acl" (computed-file "acl"

View File

@ -126,13 +126,9 @@ dependencies are registered."
(define build (define build
(with-extensions gcrypt-sqlite3&co (with-extensions gcrypt-sqlite3&co
;; XXX: Adding (gnu build install) just to work around
;; <https://bugs.gnu.org/15602>: that way, (guix build store-copy) is
;; copied last and the 'store-info-XXX' macros are correctly expanded.
(with-imported-modules (source-module-closure (with-imported-modules (source-module-closure
'((guix build store-copy) '((guix build store-copy)
(guix store database) (guix store database)))
(gnu build install)))
#~(begin #~(begin
(use-modules (guix store database) (use-modules (guix store database)
(guix build store-copy) (guix build store-copy)