me
/
guix
Archived
1
0
Fork 0
Code

gnu: hwloc: Remove trailing #t. 

* gnu/packages/mpi.scm (hwloc-1)[arguments]: Remove trailing #t.
(hwloc-2)[arguments]: Likewise.
master
Ludovic Courtès 2022-04-11 15:08:33 +02:00
parent ac2d36559f
commit 649556ea09
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/packages/mpi.scm
View File

@ -96,8 +96,7 @@
;; machines: <https://github.com/open-mpi/hwloc/issues/213>. ;; machines: <https://github.com/open-mpi/hwloc/issues/213>.
(substitute* "tests/linux-libnuma.c" (substitute* "tests/linux-libnuma.c"
(("numa_available\\(\\)") (("numa_available\\(\\)")
"-1")) "-1"))))
#t))
(add-after 'install 'refine-libnuma (add-after 'install 'refine-libnuma
;; Give -L arguments for libraries to avoid propagation ;; Give -L arguments for libraries to avoid propagation
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
@ -114,8 +113,7 @@
;; "lib" output doesn't refer to "out". ;; "lib" output doesn't refer to "out".
(substitute* (string-append lib "/lib/pkgconfig/hwloc.pc") (substitute* (string-append lib "/lib/pkgconfig/hwloc.pc")
(("^.*prefix=.*$") (("^.*prefix=.*$")
"")) "")))))
#t)))
(add-after 'install 'move-man3-pages (add-after 'install 'move-man3-pages
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
;; Move section 3 man pages to the "doc" output. ;; Move section 3 man pages to the "doc" output.
@ -123,8 +121,8 @@
(doc (assoc-ref outputs "doc"))) (doc (assoc-ref outputs "doc")))
(copy-recursively (string-append out "/share/man/man3") (copy-recursively (string-append out "/share/man/man3")
(string-append doc "/share/man/man3")) (string-append doc "/share/man/man3"))
(delete-file-recursively (string-append out "/share/man/man3")) (delete-file-recursively
#t)))))) (string-append out "/share/man/man3"))))))))
(home-page "https://www.open-mpi.org/projects/hwloc/") (home-page "https://www.open-mpi.org/projects/hwloc/")
(synopsis "Abstraction of hardware architectures") (synopsis "Abstraction of hardware architectures")
(description (description
@ -168,16 +166,14 @@ bind processes, and much more.")
;; some machines: <https://github.com/open-mpi/hwloc/issues/213>. ;; some machines: <https://github.com/open-mpi/hwloc/issues/213>.
(substitute* "tests/hwloc/linux-libnuma.c" (substitute* "tests/hwloc/linux-libnuma.c"
(("numa_available\\(\\)") (("numa_available\\(\\)")
"-1")) "-1"))))
#t))
(add-before 'check 'skip-test-that-fails-on-qemu (add-before 'check 'skip-test-that-fails-on-qemu
(lambda _ (lambda _
;; Skip test that fails on emulated hardware due to QEMU bug: ;; Skip test that fails on emulated hardware due to QEMU bug:
;; <https://bugs.gnu.org/40342>. ;; <https://bugs.gnu.org/40342>.
(substitute* "tests/hwloc/hwloc_get_last_cpu_location.c" (substitute* "tests/hwloc/hwloc_get_last_cpu_location.c"
(("hwloc_topology_init" all) (("hwloc_topology_init" all)
(string-append "exit (77);\n" all))) (string-append "exit (77);\n" all)))))))))))
#t))))))))
(define-deprecated hwloc-2.0 hwloc-2) (define-deprecated hwloc-2.0 hwloc-2)