gnu: hwinfo: Factorise 'install-man-pages.

* gnu/packages/hardware.scm (hwinfo)[arguments]: Get section numbers
from the man page file names rather than hard-coding 2.

1 files changed, 5 insertions, 9 deletions

diff --git a/gnu/packages/hardware.scm b/gnu/packages/hardware.scm
index 9445dd82d65..68f06917c6b 100644
--- a/gnu/packages/hardware.scm
+++ b/gnu/packages/hardware.scm
@@ -405,15 +405,11 @@ operability and find drivers.")
               (invoke "make" "doc")))
           (add-after 'install 'install-man-pages
             (lambda _
-              (let* ((man (string-append #$output "/share/man"))
-                     (man1 (string-append man "/man1"))
-                     (man8 (string-append man "/man8")))
-                (for-each
-                 (lambda (x) (install-file x man1))
-                 (find-files "doc" "\\.1$"))
-                (for-each
-                 (lambda (y) (install-file y man8))
-                 (find-files "doc" "\\.8$"))))))))
+              (for-each
+               (lambda (file)
+                 (install-file file (string-append #$output "/share/man/man"
+                                                   (string-take-right file 1))))
+               (find-files "doc" "\\.[0-9]$")))))))
     (native-inputs
      (list doxygen flex perl pkg-config))
     (inputs