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.
This commit is contained in:
Ludovic Courtès 2019-07-22 00:45:42 +02:00
parent 96f1cbeff8
commit cd9f56ff5a
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 3 deletions

View File

@ -509,9 +509,10 @@ the image."
#:database #+database #:database #+database
#:system (or #$target (utsname:machine (uname))) #:system (or #$target (utsname:machine (uname)))
#:environment environment #:environment environment
#:entry-point #$(and entry-point #:entry-point
#~(string-append #$profile "/" #$(and entry-point
#$entry-point)) #~(list (string-append #$profile "/"
#$entry-point)))
#:symlinks '#$symlinks #:symlinks '#$symlinks
#:compressor '#$(compressor-command compressor) #:compressor '#$(compressor-command compressor)
#:creation-time (make-time time-utc 0 1)))))) #:creation-time (make-time time-utc 0 1))))))