02/11: gnu: opensm: Use gexps.

[guix-commits]

civodul pushed a commit to branch wip-openmpi-upgrade
in repository guix.

commit f0ebb2fa9d62307b9d57f51ebbeb0d110606cece
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Oct 16 08:34:18 2023 +0200

    gnu: opensm: Use gexps.
    
    * gnu/packages/fabric-management.scm (opensm)[arguments]: Use gexps.
---
 gnu/packages/fabric-management.scm | 26 ++++++++++++++------------
 1 file changed, 14 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/fabric-management.scm 
b/gnu/packages/fabric-management.scm
index 545cd4ff67..740c570911 100644
--- a/gnu/packages/fabric-management.scm
+++ b/gnu/packages/fabric-management.scm
@@ -66,18 +66,20 @@
     (inputs
      (list rdma-core))
     (arguments
-     `(#:configure-flags '("--disable-static")
-       #:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'install-doc
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let* ((base (assoc-ref outputs "out"))
-                    (doc  (string-append base "/share/doc/"
-                                         ,(package-name this-package) "-"
-                                         ,(package-version this-package))))
-               (for-each (lambda (file)
-                           (install-file file doc))
-                         (find-files "doc"))))))))
+     (list
+      #:configure-flags #~'("--disable-static")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'install 'install-doc
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let* ((base (assoc-ref outputs "out"))
+                     (doc (string-append base "/share/doc/"
+                                         #$(package-name this-package)
+                                         "-"
+                                         #$(package-version this-package))))
+                (for-each (lambda (file)
+                            (install-file file doc))
+                          (find-files "doc"))))))))
     (home-page "https://www.openfabrics.org/";)
     (synopsis "OpenIB InfiniBand Subnet Manager and management utilities")
     (description "\