mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-10 13:40:20 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: libsmf: Use gexp.

Browse source 
* gnu/packages/music.scm (libsmf)[arguments]: Use gexp.
This commit is contained in:
Ricardo Wurmus 2023-02-07 11:25:42 +01:00
parent 76f4f79267
commit 6de3c1088e
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 13 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
gnu/packages/music.scm
View file

@ -4682,21 +4682,19 @@ inventory, and orders.")
(outputs '("out" (outputs '("out"
"static")) ; 88KiB of .a files "static")) ; 88KiB of .a files
(arguments (arguments
`(#:phases (list
(modify-phases %standard-phases #:phases
(add-after 'install 'move-static-libraries #~(modify-phases %standard-phases
(lambda* (#:key outputs #:allow-other-keys) (add-after 'install 'move-static-libraries
;; Move static libraries to the "static" output. (lambda _
(let* ((out (assoc-ref outputs "out")) ;; Move static libraries to the "static" output.
(lib (string-append out "/lib")) (let ((lib (string-append #$output "/lib"))
(static (assoc-ref outputs "static")) (slib (string-append #$output:static "/lib")))
(slib (string-append static "/lib"))) (mkdir-p slib)
(mkdir-p slib) (for-each (lambda (file)
(for-each (lambda (file) (install-file file slib)
(install-file file slib) (delete-file file))
(delete-file file)) (find-files lib "\\.a$"))))))))
(find-files lib "\\.a$"))
#t))))))
(inputs (inputs
(list readline glib)) (list readline glib))
(native-inputs (native-inputs