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.
2019-07-22 00:45:42 +02:00 · 2019-07-22 00:45:42 +02:00 · cd9f56ff5a
parent 96f1cbeff8
commit cd9f56ff5a
1 changed files with 4 additions and 3 deletions
--- 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))))))