[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: gnu: gnutls: Move man3 pages to "doc" output.
From: |
Ludovic Courtès |
Subject: |
01/01: gnu: gnutls: Move man3 pages to "doc" output. |
Date: |
Sat, 27 Jun 2015 20:21:36 +0000 |
civodul pushed a commit to branch wip-diet
in repository guix.
commit bee5a83354120758659f997085a3443fb4ecbb59
Author: Ludovic Courtès <address@hidden>
Date: Sat Jun 27 22:18:08 2015 +0200
gnu: gnutls: Move man3 pages to "doc" output.
* gnu/packages/gnutls.scm (gnutls)[arguments]: Add #:phases.
---
gnu/packages/gnutls.scm | 20 ++++++++++++++++++--
1 files changed, 18 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/gnutls.scm b/gnu/packages/gnutls.scm
index 4ed339a..415ea7a 100644
--- a/gnu/packages/gnutls.scm
+++ b/gnu/packages/gnutls.scm
@@ -135,8 +135,24 @@ living in the same process.")
;; FIXME: Temporarily disable p11-kit support since it is not
;; working on mips64el.
- "--without-p11-kit")))
- (outputs '("out" "debug"))
+ "--without-p11-kit")
+
+ #:phases (modify-phases %standard-phases
+ (add-after
+ 'install 'move-doc
+ (lambda* (#:key outputs #:allow-other-keys)
+ ;; Copy the 4.1 MiB of section 3 man pages to "doc".
+ (let* ((out (assoc-ref outputs "out"))
+ (doc (assoc-ref outputs "doc"))
+ (mandir (string-append doc "/share/man"))
+ (oldman (string-append out "/share/man/man3")))
+ (mkdir-p mandir)
+ (copy-recursively oldman mandir)
+ (delete-file-recursively oldman)
+ #t))))))
+ (outputs '("out" ;4.4 MiB
+ "debug"
+ "doc")) ;4.1 MiB of man pages
(native-inputs
`(("pkg-config" ,pkg-config)
("which" ,which)))