[bug#75399] guix: docker: Add history field to config.json.

Message ID 20250106111513.16611-1-romain.garbage@inria.fr
State New
Headers
Series [bug#75399] guix: docker: Add history field to config.json. |

Commit Message

Romain GARBAGE Jan. 6, 2025, 11:15 a.m. UTC
  * guix/docker.scm (config): Add history field.

Change-Id: If1d4e9e2ce7673588f9016b389e4c67afa7ac119
---
 guix/docker.scm | 5 +++++
 1 file changed, 5 insertions(+)


base-commit: 831b94a1efcea8f793afc949b5123a6235c9bb1a
  

Comments

Ludovic Courtès Jan. 7, 2025, 6:14 p.m. UTC | #1
Romain GARBAGE <romain.garbage@inria.fr> skribis:

> * guix/docker.scm (config): Add history field.
>
> Change-Id: If1d4e9e2ce7673588f9016b389e4c67afa7ac119

Pushed as e94d35e522aa10ab715b53bce91ed397f59b9bd9, thanks!
  

Patch

diff --git a/guix/docker.scm b/guix/docker.scm
index 1c6f59568f..b33c5824dd 100644
--- a/guix/docker.scm
+++ b/guix/docker.scm
@@ -135,6 +135,11 @@  (define* (config layers-diff-ids time arch #:key entry-point (environment '()))
                        `((entrypoint . ,(list->vector entry-point)))
                        '())))
     (container_config . #nil)
+    ;; Some container engines such as <https://github.com/cea-hpc/pcocc> require
+    ;; these fields.
+    (history . ,(list->vector `(((created . ,time)
+                                 (created_by . "guix pack -f docker")
+                                 (comment . "guix pack")))))
     (os . "linux")
     (rootfs . ((type . "layers")
                (diff_ids . ,(list->vector layers-diff-ids))))))