From 9f00e7429df88538246652056ef9497cd2a817b5 Mon Sep 17 00:00:00 2001
From: "Collin J. Doering" <collin@rekahsoft.ca>
Date: Fri, 19 Nov 2021 16:12:03 -0500
Subject: docker: Enable arm64 docker image building for 'guix pack'.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

* guix/docker.scm (build-docker-image): Recognize "aarch64".

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

diff --git a/guix/docker.scm b/guix/docker.scm
index a6f73d423c..5e6460f43f 100644
--- a/guix/docker.scm
+++ b/guix/docker.scm
@@ -214,10 +214,11 @@ (define transformation-options
                                             (else
                                              (error "unsupported system"
                                                     system)))))))
-                 (cond* ("x86_64" "amd64")
-                        ("i686"   "386")
-                        ("arm"    "arm")
-                        ("mips64" "mips64le")))))
+                 (cond* ("x86_64"  "amd64")
+                        ("i686"    "386")
+                        ("arm"     "arm")
+                        ("aarch64" "arm64")
+                        ("mips64"  "mips64le")))))
     ;; Make sure we start with a fresh, empty working directory.
     (mkdir directory)
     (with-directory-excursion directory
-- 
cgit v1.2.3