diff options
| author | Federico Beffa <beffa@fbengineering.ch> | 2015-04-05 21:59:18 +0200 |
|---|---|---|
| committer | Federico Beffa <beffa@fbengineering.ch> | 2015-04-06 10:22:21 +0200 |
| commit | 26b261ecfed246e4fa7b7c18654430e4f4b0eb1a (patch) | |
| tree | 509941e47d4d916601daaf5ba3ad610c09507d7f | |
| parent | 1b85e57f115845c38c3dd76b962b269edb26354a (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.scm | 10 |
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))) |