01/01: build-system/gnu: Add 'delete-info-dir-file' phase.

[Federico Beffa]

beffa pushed a commit to branch core-updates
in repository guix.

commit 26b261ecfed246e4fa7b7c18654430e4f4b0eb1a
Author: Federico Beffa <address@hidden>
Date:   Sun Apr 5 21:59:18 2015 +0200

    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.
---
 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 5220bda..512d98a 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)))