(address . guix-patches@gnu.org)(name . ???)(address . iyzsong@member.fsf.org)
20180101103336.8613-3-iyzsong@member.fsf.org
* guix/profiles.scm (info-dir-file): Use 'eval-gexp' to filter out those
manifest inputs that doesn't have info manuals.
---
guix/profiles.scm | 24 ++++++++++++++++++------
1 file changed, 18 insertions(+), 6 deletions(-)
Toggle diff (45 lines)
diff --git a/guix/profiles.scm b/guix/profiles.scm
index 3c05543be..f6e455c96 100644
--- a/guix/profiles.scm
+++ b/guix/profiles.scm
@@ -684,7 +684,19 @@ MANIFEST."
(define gzip ;lazy reference
(module-ref (resolve-interface '(gnu packages compression)) 'gzip))
- (define build
+ ;; We only need to build the 'dir' file for inputs that does contain info
+ ;; manuals.
+ (define interested
+ (eval-gexp
+ #~(filter
+ (lambda (input)
+ (file-exists? (string-append input "/share/info")))
+ '#$(manifest-inputs manifest))))
+
+ ;; XXX: We have to pass paths of inputs instead of paths of info files,
+ ;; because 'gexp-inputs' only adds inputs for strings which satisfies
+ ;; 'direct-store-path?'.
+ (define (build inputs)
(with-imported-modules '((guix build utils))
#~(begin
(use-modules (guix build utils)
@@ -708,12 +720,12 @@ MANIFEST."
(mkdir-p (string-append #$output "/share/info"))
(exit (every install-info
- (append-map info-files
- '#$(manifest-inputs manifest)))))))
+ (append-map info-files '#$inputs))))))
- (gexp->derivation "info-dir" build
- #:local-build? #t
- #:substitutable? #f))
+ (mlet* %store-monad ((inputs interested))
+ (gexp->derivation "info-dir" (build inputs)
+ #:local-build? #t
+ #:substitutable? #f)))
(define (ghc-package-cache-file manifest)
"Return a derivation that builds the GHC 'package.cache' file for all the
--
2.13.3