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:
parent
2f9f792a1e
commit
c5f66d2931
|
@ -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))))))
|
||||||
|
|
Loading…
Reference in New Issue