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

[Efraim Flashner]

efraim pushed a commit to branch master
in repository guix.

commit 9129804230a3a4272731609f6418b876ba450575
Author: Efraim Flashner <address@hidden>
Date:   Tue Nov 7 20:26:34 2017 +0200

    gnu: psm: Only use as an input on supported-systems.
    
    Syntax help supplied by address@hidden
    
    * 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.
---
 gnu/packages/linux.scm | 5 ++++-
 gnu/packages/mpi.scm   | 9 +++++++--
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm
index 5398906..ce7c220 100644
--- a/gnu/packages/linux.scm
+++ b/gnu/packages/linux.scm
@@ -4394,7 +4394,10 @@ comparing system environments.")
         (base32 "19l2m1frna1l765z4j7wl8hp4rb9wrh0hy5496685hd183hmy5pv"))))
     (build-system gnu-build-system)
     (inputs `(("rdma-core" ,rdma-core)
-              ("psm" ,psm)
+              ,@(match (%current-system)
+                       ((member (package-supported-systems psm))
+                        `(("psm" ,psm)))
+                       (_ `()))
               ("libnl" ,libnl)))
     (home-page "https://ofiwg.github.io/libfabric/";)
     (synopsis "Open Fabric Interfaces")
diff --git a/gnu/packages/mpi.scm b/gnu/packages/mpi.scm
index 5054fa9..d9a2094 100644
--- a/gnu/packages/mpi.scm
+++ b/gnu/packages/mpi.scm
@@ -4,6 +4,7 @@
 ;;; Copyright © 2014 Ian Denhardt <address@hidden>
 ;;; Copyright © 2016 Andreas Enge <address@hidden>
 ;;; Copyright © 2017 Dave Love <address@hidden>
+;;; Copyright © 2017 Efraim Flashner <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -37,7 +38,8 @@
   #:use-module (gnu packages perl)
   #:use-module (gnu packages ncurses)
   #:use-module (gnu packages pkg-config)
-  #:use-module (gnu packages valgrind))
+  #:use-module (gnu packages valgrind)
+  #:use-module (ice-9 match))
 
 (define-public hwloc
   (package
@@ -126,7 +128,10 @@ bind processes, and much more.")
      `(("hwloc" ,hwloc "lib")
        ("gfortran" ,gfortran)
        ("libfabric" ,libfabric)
-       ("psm" ,psm)
+       ,@(match (%current-system)
+                ((member (package-supported-systems psm))
+                 `(("psm" ,psm)))
+                (_ `()))
        ("rdma-core" ,rdma-core)
        ("valgrind" ,valgrind)))
     (native-inputs