mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2025-10-13 17:04:42 +00:00
40 lines
1.5 KiB
Scheme
40 lines
1.5 KiB
Scheme
;;; SPDX-FileCopyrightText: 2025 Hilton Chain <hako@ultrarare.space>
|
|
;;;
|
|
;;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
|
|
(define-module (rosenthal ci tarball)
|
|
#:use-module (guix derivations)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix monads)
|
|
#:use-module (guix packages)
|
|
#:use-module (guix profiles)
|
|
#:use-module (guix store)
|
|
#:use-module (guix scripts pack)
|
|
#:use-module (gnu ci)
|
|
#:use-module (gnu compression)
|
|
#:use-module (rosenthal packages package-management)
|
|
#:export (cuirass-jobs))
|
|
|
|
;; Adapted from (@@ (gnu ci) tarball-jobs).
|
|
(define (cuirass-jobs store arguments)
|
|
"Return jobs to build the self-contained Guix binary tarball."
|
|
(define (->job name drv)
|
|
(let ((name (string-append name "." system)))
|
|
(parameterize ((%graft? #f))
|
|
(derivation->job name drv))))
|
|
|
|
(map (lambda (system)
|
|
(->job "binary-tarball"
|
|
(run-with-store store
|
|
(mbegin %store-monad
|
|
(set-guile-for-build (default-guile))
|
|
(>>= (profile-derivation (packages->manifest (list guix/dolly)))
|
|
(lambda (profile)
|
|
(self-contained-tarball "guix-binary" profile
|
|
#:profile-name "current-guix"
|
|
#:localstatedir? #t
|
|
#:compressor
|
|
(lookup-compressor "xz")))))
|
|
#:system system)))
|
|
(arguments->systems arguments)))
|