me
/
guix
Archived
1
0
Fork 0
Code

gnu: libsmf: Use gexp. 

* gnu/packages/music.scm (libsmf)[arguments]: Use gexp.
master
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"
"static")) ; 88KiB of .a files
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'install 'move-static-libraries
(lambda* (#:key outputs #:allow-other-keys)
;; Move static libraries to the "static" output.
(let* ((out (assoc-ref outputs "out"))
(lib (string-append out "/lib"))
(static (assoc-ref outputs "static"))
(slib (string-append static "/lib")))
(mkdir-p slib)
(for-each (lambda (file)
(install-file file slib)
(delete-file file))
(find-files lib "\\.a$"))
#t))))))
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'install 'move-static-libraries
(lambda _
;; Move static libraries to the "static" output.
(let ((lib (string-append #$output "/lib"))
(slib (string-append #$output:static "/lib")))
(mkdir-p slib)
(for-each (lambda (file)
(install-file file slib)
(delete-file file))
(find-files lib "\\.a$"))))))))
(inputs
(list readline glib))
(native-inputs