From 403f2dccfcf992573ceeeae7c76c71b4884d3cd4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 15 Jan 2018 15:18:03 +0100
Subject: [PATCH] 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.
---
 build-aux/cuirass/gnu-system.scm | 2 ++
 1 file changed, 2 insertions(+)

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 @@ (define (entry->sexp-entry o)
     ((? license?) `((name . (license-name o))
                     (uri . ,(license-uri o))
                     (comment . ,(license-comment o))))
+    ((lst ...)
+     (map entry->sexp-entry lst))
     (_ o)))