me/guix
Archived
1
0
Fork 0
Code Activity

gnu: memtest86+: Use G-expressions.

Browse source 
* gnu/packages/hardware.scm (memtest86+)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-10-23 02:00:01 +02:00
parent e940828ccf
commit 634f7cd7df
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 23 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/packages/hardware.scm
View file

@ -811,20 +811,22 @@ specific SMBIOS tables.")
(base32 "0fv605blaf4z0jyl1wp37x5x014dkp0z0a0fh114ws62fhnhdnlv")))) (base32 "0fv605blaf4z0jyl1wp37x5x014dkp0z0a0fh114ws62fhnhdnlv"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no way to test this (list
#:tests? #f ; no way to test this
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(delete 'configure) ; no configure script (delete 'configure) ; no configure script
(add-before 'build 'enter-build-directory (add-before 'build 'enter-build-directory
(lambda _ (lambda _
(chdir ,(if (target-x86-32?) (chdir #$(if (target-x86-32?)
"build32" "build32"
"build64")))) "build64"))))
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib/memtest86+")) (lib (string-append out "/lib/memtest86+"))
(doc (string-append out "/share/doc/memtest86+-" ,version))) (doc (string-append out "/share/doc/memtest86+-"
#$version)))
(for-each (for-each
(lambda (file) (lambda (file)
(install-file file lib)) (install-file file lib))