diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2022-10-13 11:53:34 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2022-10-13 17:28:46 +0200 |
| commit | 7c2b09f924788a9ed1b149830a4de4e2920d4618 (patch) | |
| tree | 27784372c1df6aecc48e2dd6518ca7f4af5e6ac0 | |
| parent | 8b192c5550213911f930594f4fd7386f36618237 (diff) | |
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.
| -rw-r--r-- | gnu/ci.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/ci.scm b/gnu/ci.scm index 884dd844697..e1ba0f61007 100644 --- a/gnu/ci.scm +++ b/gnu/ci.scm | |||
| @@ -252,7 +252,7 @@ otherwise use the IMAGE name." | |||
| 252 | (drv (run-with-store store | 252 | (drv (run-with-store store |
| 253 | (mbegin %store-monad | 253 | (mbegin %store-monad |
| 254 | (set-guile-for-build (default-guile)) | 254 | (set-guile-for-build (default-guile)) |
| 255 | (lower-object (system-image image)))))) | 255 | (lower-object (system-image image) system))))) |
| 256 | (parameterize ((%graft? #f)) | 256 | (parameterize ((%graft? #f)) |
| 257 | (derivation->job name drv)))) | 257 | (derivation->job name drv)))) |
| 258 | 258 | ||