diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-01-15 15:18:03 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-15 15:18:03 +0100 |
commit | 403f2dccfcf992573ceeeae7c76c71b4884d3cd4 (patch) | |
tree | 23935e99ae7533d158cf83b12013989d66c19501 | |
parent | 6d49ca16be22e3fb95823ac1780ad9460a18b180 (diff) | |
download | gnu-guix-403f2dccfcf992573ceeeae7c76c71b4884d3cd4.tar gnu-guix-403f2dccfcf992573ceeeae7c76c71b4884d3cd4.tar.gz |
cuirass: Properly convert list of <license> objects.
Fixes a bug whereby we would 'write' raw <license> objects when they
were in a list.
* build-aux/cuirass/gnu-system.scm (entry->sexp-entry): Add recursive
case when O is a list.
-rw-r--r-- | build-aux/cuirass/gnu-system.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/build-aux/cuirass/gnu-system.scm b/build-aux/cuirass/gnu-system.scm index c88267b9d8..f545ba03bc 100644 --- a/build-aux/cuirass/gnu-system.scm +++ b/build-aux/cuirass/gnu-system.scm @@ -44,4 +44,6 @@ ((? license?) `((name . (license-name o)) (uri . ,(license-uri o)) (comment . ,(license-comment o)))) + ((lst ...) + (map entry->sexp-entry lst)) (_ o))) |