03/03: pack: Pass a list as the entry point for 'build-docker-image'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit cd9f56ff5a0c187eb9d931713cb6774564163788
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jul 22 00:45:42 2019 +0200

    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(-)

diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index 4ac5dfc..01472d9 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))))))