TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki 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 @@ (define-public infiniband-diags
;; FIXME: needs rst2man for man pages
(list perl pkg-config))
(arguments
'(#:configure-flags
(list (string-append "CPPFLAGS=-I" (assoc-ref %build-inputs "opensm")
"/include/infiniband")
(string-append "--with-perl-installdir=" (assoc-ref %outputs "lib")
"/lib/perl5/vendor_perl")
"--disable-static")
#:phases
(modify-phases %standard-phases
(add-after 'install 'licence
(lambda _
(let ((doc (string-append (assoc-ref %outputs "lib") "/share/doc")))
(mkdir-p doc)
(install-file "COPYING" doc))))
(add-after 'install-file 'move-perl
;; Avoid perl in lib closure
(lambda _
(let ((perlout (string-append (assoc-ref %outputs "out") "/lib"))
(perlin (string-append (assoc-ref %outputs "lib")
"/lib/perl5")))
(mkdir-p perlout)
(rename-file perlin perlout)
#t))))))
(list #:configure-flags
#~(list (string-append "CPPFLAGS=-I"
#$(this-package-input "opensm")
"/include/infiniband")
(string-append "--with-perl-installdir=" #$output:lib
"/lib/perl5/vendor_perl")
"--disable-static")
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'licence
(lambda* (#:key outputs #:allow-other-keys)
(let ((doc (string-append (assoc-ref outputs "lib")
"/share/doc")))
(mkdir-p doc)
(install-file "COPYING" doc))))
(add-after 'install-file 'move-perl
;; Avoid perl in lib closure
(lambda* (#:key outputs #:allow-other-keys)
(let ((perlout (string-append (assoc-ref outputs "out")
"/lib"))
(perlin (string-append (assoc-ref outputs "lib")
"/lib/perl5")))
(mkdir-p perlout)
(rename-file perlin perlout)))))))
(home-page "https://github.com/linux-rdma/infiniband-diags")
(synopsis "Infiniband diagnostic tools")
(description "This is a set of command-line utilities to help configure,