From e94d35e522aa10ab715b53bce91ed397f59b9bd9 Mon Sep 17 00:00:00 2001
From: Romain GARBAGE <romain.garbage@inria.fr>
Date: Mon, 6 Jan 2025 12:15:13 +0100
Subject: [PATCH] docker: Add history field to config.json.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* guix/docker.scm (config): Add history field.

Change-Id: If1d4e9e2ce7673588f9016b389e4c67afa7ac119
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 guix/docker.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/guix/docker.scm b/guix/docker.scm
index 1c6f59568f6..b33c5824ddb 100644
--- a/guix/docker.scm
+++ b/guix/docker.scm
@@ -135,6 +135,11 @@ Return a version of TAG that follows these rules."
                        `((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))))))