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 c88267b9d8802d5b4eba6122c0aba6d3d53fc34e..f545ba03bcafca01c9525b60c3c5b2cb780cc3be 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)))