aboutsummaryrefslogtreecommitdiff
path: root/build-aux
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-01-15 15:18:03 +0100
committerLudovic Courtès <ludo@gnu.org>2018-01-15 15:18:03 +0100
commit403f2dccfcf992573ceeeae7c76c71b4884d3cd4 (patch)
tree23935e99ae7533d158cf83b12013989d66c19501 /build-aux
parent6d49ca16be22e3fb95823ac1780ad9460a18b180 (diff)
downloadgnu-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.
Diffstat (limited to 'build-aux')
-rw-r--r--build-aux/cuirass/gnu-system.scm2
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)))