diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-04-11 15:08:33 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-04-11 15:49:33 +0200 |
| commit | 649556ea092ffb08277b687c791a041cc291ca1e (patch) | |
| tree | 37f20b74f7d1fc8e74f74f009fc8242a582ccccd | |
| parent | ac2d36559fac296ba5b1c8c3a030dd1e8e0e3fd8 (diff) | |
| download | guix-649556ea092ffb08277b687c791a041cc291ca1e.tar.gz guix-649556ea092ffb08277b687c791a041cc291ca1e.zip | |
gnu: hwloc: Remove trailing #t.
* gnu/packages/mpi.scm (hwloc-1)[arguments]: Remove trailing #t.
(hwloc-2)[arguments]: Likewise.
| -rw-r--r-- | gnu/packages/mpi.scm | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/gnu/packages/mpi.scm b/gnu/packages/mpi.scm index 32c26e13c0..389fdaa5c4 100644 --- a/gnu/packages/mpi.scm +++ b/gnu/packages/mpi.scm @@ -96,8 +96,7 @@ ;; machines: <https://github.com/open-mpi/hwloc/issues/213>. (substitute* "tests/linux-libnuma.c" (("numa_available\\(\\)") - "-1")) - #t)) + "-1")))) (add-after 'install 'refine-libnuma ;; Give -L arguments for libraries to avoid propagation (lambda* (#:key inputs outputs #:allow-other-keys) @@ -114,8 +113,7 @@ ;; "lib" output doesn't refer to "out". (substitute* (string-append lib "/lib/pkgconfig/hwloc.pc") (("^.*prefix=.*$") - "")) - #t))) + ""))))) (add-after 'install 'move-man3-pages (lambda* (#:key outputs #:allow-other-keys) ;; Move section 3 man pages to the "doc" output. @@ -123,8 +121,8 @@ (doc (assoc-ref outputs "doc"))) (copy-recursively (string-append out "/share/man/man3") (string-append doc "/share/man/man3")) - (delete-file-recursively (string-append out "/share/man/man3")) - #t)))))) + (delete-file-recursively + (string-append out "/share/man/man3")))))))) (home-page "https://www.open-mpi.org/projects/hwloc/") (synopsis "Abstraction of hardware architectures") (description @@ -168,16 +166,14 @@ bind processes, and much more.") ;; some machines: <https://github.com/open-mpi/hwloc/issues/213>. (substitute* "tests/hwloc/linux-libnuma.c" (("numa_available\\(\\)") - "-1")) - #t)) + "-1")))) (add-before 'check 'skip-test-that-fails-on-qemu (lambda _ ;; Skip test that fails on emulated hardware due to QEMU bug: ;; <https://bugs.gnu.org/40342>. (substitute* "tests/hwloc/hwloc_get_last_cpu_location.c" (("hwloc_topology_init" all) - (string-append "exit (77);\n" all))) - #t)))))))) + (string-append "exit (77);\n" all))))))))))) (define-deprecated hwloc-2.0 hwloc-2) |