03/18: gnu: snd: Version documentation directory.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit 4ae9274ae9786a1a70f7cf5fc32419c3408356e2
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Tue May 1 15:40:36 2018 +0200

    gnu: snd: Version documentation directory.
    
    * gnu/packages/audio.scm (snd)[arguments]: Install documentation to the
    conventional location.  Remove redundant MKDIR-P.  Align cosmetically.
---
 gnu/packages/audio.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 97e2a49..978b023 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -3253,7 +3253,7 @@ on the ALSA software PCM plugin.")
                 "1vm0dy5qlycqkima7y5ajzvazyjybifa803fabjcpncjz08c26vp"))))
     (build-system glib-or-gtk-build-system)
     (arguments
-     '(#:tests? #f                      ; no tests
+     `(#:tests? #f                      ; no tests
        #:out-of-source? #f              ; for the 'install-doc' phase
        #:configure-flags
        (let* ((out (assoc-ref %outputs "out"))
@@ -3265,13 +3265,13 @@ on the ALSA software PCM plugin.")
          (add-after 'install 'install-doc
            (lambda* (#:key outputs #:allow-other-keys)
              (let* ((out (assoc-ref outputs "out"))
-                    (docdir (string-append out "/share/doc/snd")))
-               (mkdir-p docdir)
+                    (doc (string-append out "/share/doc/"
+                                        ,name "-" ,version)))
                (for-each
                 (lambda (f)
-                  (install-file f docdir))
+                  (install-file f doc))
                 (find-files "." "\\.html$|COPYING"))
-               (copy-recursively "pix" (string-append docdir "/pix"))
+               (copy-recursively "pix" (string-append doc "/pix"))
                #t))))))
     (native-inputs
      `(("pkg-config" ,pkg-config)))