From cd9f56ff5a0c187eb9d931713cb6774564163788 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 22 Jul 2019 00:45:42 +0200
Subject: pack: Pass a list as the entry point for 'build-docker-image'.

* guix/scripts/pack.scm (docker-image)[build]: Pass a list as
 #:entry-point, not a string.
---
 guix/scripts/pack.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'guix')

diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index 4ac5dfc896..01472d9768 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -509,9 +509,10 @@ the image."
                                 #:database #+database
                                 #:system (or #$target (utsname:machine (uname)))
                                 #:environment environment
-                                #:entry-point #$(and entry-point
-                                                     #~(string-append #$profile "/"
-                                                                      #$entry-point))
+                                #:entry-point
+                                #$(and entry-point
+                                       #~(list (string-append #$profile "/"
+                                                              #$entry-point)))
                                 #:symlinks '#$symlinks
                                 #:compressor '#$(compressor-command compressor)
                                 #:creation-time (make-time time-utc 0 1))))))
-- 
cgit v1.2.3