08/14: gnu: rcs: Install man page for rcsfreeze.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 442b2d9d7d09840cc23010e4d390308400780836
Author: Foo Chuan Wei <chuanwei.foo@hotmail.com>
AuthorDate: Wed Dec 15 14:56:32 2021 +0000

    gnu: rcs: Install man page for rcsfreeze.
    
    * gnu/packages/version-control.scm (rcs)[arguments]: Install man page
      for rcsfreeze.
    
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/packages/version-control.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index 8044370..d874011 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -2032,10 +2032,12 @@ projects, from individuals to large-scale enterprise 
operations.")
                  (modify-phases %standard-phases
                    (add-after 'install 'install-rcsfreeze
                      (lambda* (#:key outputs #:allow-other-keys)
-                       (chmod "src/rcsfreeze" #o755)
-                       (install-file
-                         "src/rcsfreeze"
-                         (string-append (assoc-ref outputs "out") "/bin")))))))
+                       (let* ((out (assoc-ref outputs "out"))
+                              (bin (string-append out "/bin"))
+                              (man1 (string-append out "/share/man/man1")))
+                         (chmod "src/rcsfreeze" #o755)
+                         (install-file "src/rcsfreeze" bin)
+                         (install-file "man/rcsfreeze.1" man1)))))))
     (native-inputs (list ed))
     (home-page "https://www.gnu.org/software/rcs/";)
     (synopsis "Per-file local revision control system")