From 9d9847e1538096ff9fa1a1f4a9fe633a9a13922e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 9 Sep 2015 22:55:33 +0200 Subject: gnu: curl: Move man3 pages to "doc" output. * gnu/packages/curl.scm (curl)[outputs]: New field. [arguments]: Add 'move-man3-pages' phase. --- gnu/packages/curl.scm | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/gnu/packages/curl.scm b/gnu/packages/curl.scm index 55a5d1e782..f7c9f083b7 100644 --- a/gnu/packages/curl.scm +++ b/gnu/packages/curl.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2013, 2014 Andreas Enge ;;; Copyright © 2015 Mark H Weaver ;;; Copyright © 2015 Tomáš Čech +;;; Copyright © 2015 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -47,6 +48,8 @@ (base32 "0gjnaav9vmwwwza451na1643br7i0kxgd4002pwqh3xk5ywvdap7")))) (build-system gnu-build-system) + (outputs '("out" + "doc")) ;1.2 MiB of man3 pages (inputs `(("gnutls" ,gnutls) ("gss" ,gss) ("libidn" ,libidn) @@ -64,6 +67,16 @@ ;; Add a phase to patch '/bin/sh' occurances in tests/runtests.pl #:phases (modify-phases %standard-phases + (add-after + 'install 'move-man3-pages + (lambda* (#:key outputs #:allow-other-keys) + ;; Move section 3 man pages to "doc". + (let ((out (assoc-ref outputs "out")) + (doc (assoc-ref outputs "doc"))) + (mkdir-p (string-append doc "/share/man")) + (rename-file (string-append out "/share/man/man3") + (string-append doc "/share/man/man3")) + #t))) (replace 'check (lambda _ -- cgit v1.2.3