Re: info dir clashes

[Mark H Weaver]

Federico Beffa <address@hidden> writes:

> From 06441ea6992808ef96139ab171269172dc65f2db Mon Sep 17 00:00:00 2001
> From: Federico Beffa <address@hidden>
> Date: Sun, 5 Apr 2015 21:59:18 +0200
> Subject: [PATCH] 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 file changed, 10 insertions(+)
>
> diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
> index 5220bda..284d1ee 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)
> +  (every (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))
> +             #t)))
> +         outputs))

In this case 'for-each' is the appropriate tool, since it ignores the
results of the procedure calls, which are made only for their side
effects.  So you can omit the #t.

Otherwise, looks good to me for 'core-updates'.

    Thanks!
      Mark