gnu: psm: Only use as an input on supported-systems.

Syntax help supplied by bavier@member.fsf.org

* gnu/packages/linux.scm (libfabric)[inputs]: Only use psm as an input
on systems where psm is supported.
* gnu/packages/mpi.scm (openmpi)[inputs]: Same.
This commit is contained in:
Efraim Flashner 2017-11-07 20:26:34 +02:00
parent b516b78002
commit 9129804230
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351
2 changed files with 11 additions and 3 deletions

View file

@ -4394,7 +4394,10 @@ (define-public libfabric
(base32 "19l2m1frna1l765z4j7wl8hp4rb9wrh0hy5496685hd183hmy5pv")))) (base32 "19l2m1frna1l765z4j7wl8hp4rb9wrh0hy5496685hd183hmy5pv"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(inputs `(("rdma-core" ,rdma-core) (inputs `(("rdma-core" ,rdma-core)
("psm" ,psm) ,@(match (%current-system)
((member (package-supported-systems psm))
`(("psm" ,psm)))
(_ `()))
("libnl" ,libnl))) ("libnl" ,libnl)))
(home-page "https://ofiwg.github.io/libfabric/") (home-page "https://ofiwg.github.io/libfabric/")
(synopsis "Open Fabric Interfaces") (synopsis "Open Fabric Interfaces")

View file

@ -4,6 +4,7 @@
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net> ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
;;; Copyright © 2016 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2016 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2017 Dave Love <fx@gnu.org> ;;; Copyright © 2017 Dave Love <fx@gnu.org>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -37,7 +38,8 @@ (define-module (gnu packages mpi)
#:use-module (gnu packages perl) #:use-module (gnu packages perl)
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
#:use-module (gnu packages valgrind)) #:use-module (gnu packages valgrind)
#:use-module (ice-9 match))
(define-public hwloc (define-public hwloc
(package (package
@ -126,7 +128,10 @@ (define-public openmpi
`(("hwloc" ,hwloc "lib") `(("hwloc" ,hwloc "lib")
("gfortran" ,gfortran) ("gfortran" ,gfortran)
("libfabric" ,libfabric) ("libfabric" ,libfabric)
("psm" ,psm) ,@(match (%current-system)
((member (package-supported-systems psm))
`(("psm" ,psm)))
(_ `()))
("rdma-core" ,rdma-core) ("rdma-core" ,rdma-core)
("valgrind" ,valgrind))) ("valgrind" ,valgrind)))
(native-inputs (native-inputs