diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-08-06 10:07:36 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-08-06 10:07:36 +0200 |
| commit | 378d94e51b00c30b19a39154278d01f1f3c4dbc1 (patch) | |
| tree | 0c9ed3a1c1b6db778b05ad03fa8edd91cfb737f4 /guix/docker.scm | |
| parent | d350d5e71434704d147b1252d21e46daf6bb9885 (diff) | |
| parent | 6a5198170ed5f10e1eee2e25fc6a39f3f33a40fd (diff) | |
| download | guix-patches-378d94e51b00c30b19a39154278d01f1f3c4dbc1.tar guix-patches-378d94e51b00c30b19a39154278d01f1f3c4dbc1.tar.gz | |
Merge remote-tracking branch 'origin/master' into wip-texlive
Diffstat (limited to 'guix/docker.scm')
| -rw-r--r-- | guix/docker.scm | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/guix/docker.scm b/guix/docker.scm index b1bd226fa1..c598a073f6 100644 --- a/guix/docker.scm +++ b/guix/docker.scm @@ -62,9 +62,9 @@ (define (manifest path id) "Generate a simple image manifest." - `(((Config . "config.json") - (RepoTags . (,(generate-tag path))) - (Layers . (,(string-append id "/layer.tar")))))) + `#(((Config . "config.json") + (RepoTags . #(,(generate-tag path))) + (Layers . #(,(string-append id "/layer.tar")))))) ;; According to the specifications this is required for backwards ;; compatibility. It duplicates information provided by the manifest. @@ -81,17 +81,18 @@ `((architecture . ,arch) (comment . "Generated by GNU Guix") (created . ,time) - (config . ,`((env . ,(map (match-lambda - ((name . value) - (string-append name "=" value))) - environment)) + (config . ,`((env . ,(list->vector + (map (match-lambda + ((name . value) + (string-append name "=" value))) + environment))) ,@(if entry-point - `((entrypoint . ,entry-point)) + `((entrypoint . ,(list->vector entry-point))) '()))) (container_config . #nil) (os . "linux") (rootfs . ((type . "layers") - (diff_ids . (,(layer-diff-id layer))))))) + (diff_ids . #(,(layer-diff-id layer))))))) (define %tar-determinism-options ;; GNU tar options to produce archives deterministically. |