me
/
guix
Archived
1
0
Fork 0
Code

import/utils: alist->package: Include arguments. 

* guix/import/utils.scm (alist->package): Process arguments field in input
data and include it in the generated package.
master
Ricardo Wurmus 2020-04-16 21:44:21 +02:00
parent 7cef499bb0
commit 3fd4c4c839
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/import/utils.scm
View File

@ -322,6 +322,11 @@ specifications to look up and replace them with plain symbols instead."
known-inputs))) known-inputs)))
(append (specs->package-lists regular) (append (specs->package-lists regular)
(map string->symbol known)))) (map string->symbol known))))
(define (process-arguments arguments)
(append-map (match-lambda
((key . value)
(list (symbol->keyword (string->symbol key)) value)))
arguments))
(package (package
(name (assoc-ref meta "name")) (name (assoc-ref meta "name"))
(version (assoc-ref meta "version")) (version (assoc-ref meta "version"))
@ -329,6 +334,10 @@ specifications to look up and replace them with plain symbols instead."
(build-system (build-system
(lookup-build-system-by-name (lookup-build-system-by-name
(string->symbol (assoc-ref meta "build-system")))) (string->symbol (assoc-ref meta "build-system"))))
(arguments
(or (and=> (assoc-ref meta "arguments")
process-arguments)
'()))
(native-inputs (process-inputs "native-inputs")) (native-inputs (process-inputs "native-inputs"))
(inputs (process-inputs "inputs")) (inputs (process-inputs "inputs"))
(propagated-inputs (process-inputs "propagated-inputs")) (propagated-inputs (process-inputs "propagated-inputs"))