[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/01: gnu: nginx: Install man page.

From: Tobias Geerinckx-Rice
Subject: 01/01: gnu: nginx: Install man page.
Date: Tue, 29 Aug 2017 21:22:53 -0400 (EDT)

nckx pushed a commit to branch master
in repository guix.

commit 249ab8cc3e8ac01bcb2ef261d0d4b6c2a047e21a
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Tue Aug 29 17:31:00 2017 +0200

    gnu: nginx: Install man page.
    * gnu/packages/web.scm (nginx)[arguments]: Install the nginx(8) man page,
    and add a comment about the non-GNU configure script.
 gnu/packages/web.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 471cfe9..2ad1b6b 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -157,6 +157,7 @@ and its related documentation.")
                (("/bin/sh") (which "sh")))
          (replace 'configure
+           ;; The configure script is hand-written, not from GNU autotools.
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((flags
                     (list (string-append "--prefix=" (assoc-ref outputs "out"))
@@ -185,6 +186,12 @@ and its related documentation.")
                (format #t "environment variable `CC' set to `gcc'~%")
                (format #t "configure flags: ~s~%" flags)
                (zero? (apply system* "./configure" flags)))))
+         (add-after 'install 'install-man-page
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out"))
+                    (man (string-append out "/share/man")))
+               (install-file "objs/nginx.8" (string-append man "/man8"))
+               #t)))
          (add-after 'install 'fix-root-dirs
            (lambda* (#:key outputs #:allow-other-keys)
              ;; 'make install' puts things in strange places, so we need to

reply via email to

[Prev in Thread] Current Thread [Next in Thread]