summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFederico Beffa <beffa@fbengineering.ch>2015-04-05 21:59:18 +0200
committerFederico Beffa <beffa@fbengineering.ch>2015-04-06 10:22:21 +0200
commit26b261ecfed246e4fa7b7c18654430e4f4b0eb1a (patch)
tree509941e47d4d916601daaf5ba3ad610c09507d7f
parent1b85e57f115845c38c3dd76b962b269edb26354a (diff)
build-system/gnu: Add 'delete-info-dir-file' phase.
* guix/build/gnu-build-system.scm (delete-info-dir-file): New procedure. (%standard-phases): Use it.
-rw-r--r--guix/build/gnu-build-system.scm10
1 files changed, 10 insertions, 0 deletions
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
index 5220bda71f..512d98ae91 100644
--- a/guix/build/gnu-build-system.scm
+++ b/guix/build/gnu-build-system.scm
@@ -538,6 +538,15 @@ DOCUMENTATION-COMPRESSOR-FLAGS."
(format #t "not compressing documentation~%")
#t)))
+(define* (delete-info-dir-file #:key outputs #:allow-other-keys)
+ (for-each (match-lambda
+ ((output . directory)
+ (let ((info-dir-file (string-append directory "/share/info/dir")))
+ (when (file-exists? info-dir-file)
+ (delete-file info-dir-file)))))
+ outputs)
+ #t)
+
(define %standard-phases
;; Standard build phases, as a list of symbol/procedure pairs.
(let-syntax ((phases (syntax-rules ()
@@ -549,6 +558,7 @@ DOCUMENTATION-COMPRESSOR-FLAGS."
patch-shebangs strip
validate-runpath
validate-documentation-location
+ delete-info-dir-file
compress-documentation)))