ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-17 12:17:10 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mdadm-static: Use G-expressions.

Browse source 
* gnu/packages/linux.scm (mdadm-static)[arguments]:
Rewrite as G-expressions.

Reported by Christopher Baines <mail@cbaines.net>
This commit is contained in:
Tobias Geerinckx-Rice 2022-01-06 16:56:18 +01:00
parent af1b5de6d8
commit 55bf2d31e9
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 12 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
gnu/packages/linux.scm
View file

@ -5078,20 +5078,19 @@ (define-public mdadm-static
(arguments (arguments
(substitute-keyword-arguments (package-arguments mdadm) (substitute-keyword-arguments (package-arguments mdadm)
((#:make-flags flags) ((#:make-flags flags)
`(cons "LDFLAGS = -static" ,flags)) #~(cons "LDFLAGS = -static" #$flags))
((#:phases phases) ((#:phases phases)
`(modify-phases ,phases #~(modify-phases #$phases
(add-after 'install 'remove-cruft (add-after 'install 'remove-cruft
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let* ((out (assoc-ref outputs "out"))
(precious? (lambda (file) (precious? (lambda (file)
(member file '("." ".." "sbin")))) (member file '("." ".." "sbin"))))
(directories (scandir out (negate precious?)))) (directories (scandir out (negate precious?))))
(with-directory-excursion out (with-directory-excursion out
(for-each delete-file-recursively directories) (for-each delete-file-recursively directories)
(remove-store-references "sbin/mdadm") (remove-store-references "sbin/mdadm")
(delete-file "sbin/mdmon") (delete-file "sbin/mdmon")))))))
#t))))))
((#:modules modules %gnu-build-system-modules) ((#:modules modules %gnu-build-system-modules)
`((ice-9 ftw) ,@modules)) `((ice-9 ftw) ,@modules))
((#:strip-flags _ '()) ((#:strip-flags _ '())