From 7c2b09f924788a9ed1b149830a4de4e2920d4618 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Thu, 13 Oct 2022 11:53:34 +0200
Subject: ci: Honor the system passed to image->job.

Fixes: <https://issues.guix.gnu.org/53480>.

* gnu/ci.scm (image->job): Pass the system argument to the underlying
lower-object call.
---
 gnu/ci.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/ci.scm b/gnu/ci.scm
index 884dd84469..e1ba0f6100 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -252,7 +252,7 @@ (define* (image->job store image
          (drv (run-with-store store
                 (mbegin %store-monad
                   (set-guile-for-build (default-guile))
-                  (lower-object (system-image image))))))
+                  (lower-object (system-image image) system)))))
     (parameterize ((%graft? #f))
       (derivation->job name drv))))
 
-- 
cgit v1.2.3