me/guix
Archived
1
0
Fork 0
Code Activity

gnu: infiniband-diags: Use gexps.

Browse source 
* gnu/packages/fabric-management.scm (infiniband-diags)[arguments]: Use
gexps.  Replace reference to '%outputs' with references to #:outputs.
This commit is contained in:
Ludovic Courtès 2023-02-23 14:32:51 +01:00
parent 9b3cc02acb
commit 73c738bc9e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 24 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

46
gnu/packages/fabric-management.scm
View file

@ -109,28 +109,30 @@ running the opensm daemon.")
;; FIXME: needs rst2man for man pages ;; FIXME: needs rst2man for man pages
(list perl pkg-config)) (list perl pkg-config))
(arguments (arguments
'(#:configure-flags (list #:configure-flags
(list (string-append "CPPFLAGS=-I" (assoc-ref %build-inputs "opensm") #~(list (string-append "CPPFLAGS=-I"
"/include/infiniband") #$(this-package-input "opensm")
(string-append "--with-perl-installdir=" (assoc-ref %outputs "lib") "/include/infiniband")
"/lib/perl5/vendor_perl") (string-append "--with-perl-installdir=" #$output:lib
"--disable-static") "/lib/perl5/vendor_perl")
#:phases "--disable-static")
(modify-phases %standard-phases #:phases
(add-after 'install 'licence #~(modify-phases %standard-phases
(lambda _ (add-after 'install 'licence
(let ((doc (string-append (assoc-ref %outputs "lib") "/share/doc"))) (lambda* (#:key outputs #:allow-other-keys)
(mkdir-p doc) (let ((doc (string-append (assoc-ref outputs "lib")
(install-file "COPYING" doc)))) "/share/doc")))
(add-after 'install-file 'move-perl (mkdir-p doc)
;; Avoid perl in lib closure (install-file "COPYING" doc))))
(lambda _ (add-after 'install-file 'move-perl
(let ((perlout (string-append (assoc-ref %outputs "out") "/lib")) ;; Avoid perl in lib closure
(perlin (string-append (assoc-ref %outputs "lib") (lambda* (#:key outputs #:allow-other-keys)
"/lib/perl5"))) (let ((perlout (string-append (assoc-ref outputs "out")
(mkdir-p perlout) "/lib"))
(rename-file perlin perlout) (perlin (string-append (assoc-ref outputs "lib")
#t)))))) "/lib/perl5")))
(mkdir-p perlout)
(rename-file perlin perlout)))))))
(home-page "https://github.com/linux-rdma/infiniband-diags") (home-page "https://github.com/linux-rdma/infiniband-diags")
(synopsis "Infiniband diagnostic tools") (synopsis "Infiniband diagnostic tools")
(description "This is a set of command-line utilities to help configure, (description "This is a set of command-line utilities to help configure,