[Top][All Lists]

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

01/01: gnu: gptfdisk: Install the documentation.

From: Leo Famulari
Subject: 01/01: gnu: gptfdisk: Install the documentation.
Date: Wed, 15 Feb 2017 13:10:07 -0500 (EST)

lfam pushed a commit to branch master
in repository guix.

commit 6fb9e069b05e12ff75dd098e7dc65a8c7007176c
Author: Leo Famulari <address@hidden>
Date:   Wed Feb 15 13:06:34 2017 -0500

    gnu: gptfdisk: Install the documentation.
    * gnu/packages/disk.scm (gptfdisk)[arguments]: Install the manpages.
 gnu/packages/disk.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm
index 2d1cb14..ec9632f 100644
--- a/gnu/packages/disk.scm
+++ b/gnu/packages/disk.scm
@@ -139,11 +139,17 @@ tables, and it understands a variety of different 
          ;; no install target
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
-             (let ((bin (string-append (assoc-ref outputs "out") "/bin")))
+             (let* ((out (assoc-ref outputs "out"))
+                    (bin (string-append out "/bin"))
+                    (man (string-append out "/share/man/man8")))
                (install-file "gdisk" bin)
                (install-file "sgdisk" bin)
                (install-file "cgdisk" bin)
-               (install-file "fixparts" bin)))))))
+               (install-file "fixparts" bin)
+               (install-file "cgdisk.8" man)
+               (install-file "fixparts.8" man)
+               (install-file "gdisk.8" man)
+               (install-file "sgdisk.8" man)))))))
     (home-page "";)
     (synopsis "Low-level GPT disk partitioning and formatting")
     (description "GPT fdisk (aka gdisk) is a text-mode partitioning tool that

reply via email to

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