pack: Fix 'guix pack -f docker'.

Regression introduced in a0f352b30f.

* guix/scripts/pack.scm (docker-image): Check whether ENTRY-POINT is
true before returning (string-append #$profile ...).
This commit is contained in:
Ludovic Courtès 2019-06-10 23:16:47 +02:00
parent 2f9f792a1e
commit c5f66d2931
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions

View File

@ -455,8 +455,9 @@ the image."
#$profile #$profile
#:database #+database #:database #+database
#:system (or #$target (utsname:machine (uname))) #:system (or #$target (utsname:machine (uname)))
#:entry-point (string-append #$profile "/" #:entry-point #$(and entry-point
#$entry-point) #~(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))))))