me/guix
Archived
1
0
Fork 0
Code Activity

services: cuirass: Remove simple cuirass configuration.

Browse source 
The Cuirass configuration has been simplified so that this is no longer
needed.

* gnu/services/cuirass.scm (<build-manifest>, <simple-cuirass-configuration>,
simple-cuirass-configuration->specs): Remove them.
This commit is contained in:
Mathieu Othacehe 2021-03-10 09:05:02 +01:00
parent 76bea3f8bc
commit 6c883d0f1d
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 1 additions and 81 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

82
gnu/services/cuirass.scm
View file

@ -50,17 +50,7 @@
<cuirass-remote-worker-configuration> <cuirass-remote-worker-configuration>
cuirass-remote-worker-configuration cuirass-remote-worker-configuration
cuirass-remote-worker-configuration? cuirass-remote-worker-configuration?
cuirass-remote-worker-service-type cuirass-remote-worker-service-type))
<build-manifest>
build-manifest
build-manifest?
<simple-cuirass-configuration>
simple-cuirass-configuration
simple-cuirass-configuration?
simple-cuirass-configuration->specs))
;;;; Commentary: ;;;; Commentary:
;;; ;;;
@ -395,73 +385,3 @@ CONFIG."
cuirass-remote-worker-shepherd-service))) cuirass-remote-worker-shepherd-service)))
(description (description
"Run the Cuirass remote build worker service."))) "Run the Cuirass remote build worker service.")))
(define-record-type* <build-manifest>
build-manifest make-build-manifest
build-manifest?
(channel-name build-manifest-channel-name) ;symbol
(manifest build-manifest-manifest)) ;string
(define-record-type* <simple-cuirass-configuration>
simple-cuirass-configuration make-simple-cuirass-configuration
simple-cuirass-configuration?
(build simple-cuirass-configuration-build
(default 'all)) ;symbol or list of <build-manifest>
(channels simple-cuirass-configuration-channels
(default %default-channels)) ;list of <channel>
(non-package-channels simple-cuirass-configuration-package-channels
(default '())) ;list of channels name
(systems simple-cuirass-configuration-systems
(default (list (%current-system))))) ;list of strings
(define* (simple-cuirass-configuration->specs config)
(define (format-name name)
(if (string? name)
name
(symbol->string name)))
(define (format-manifests build-manifests)
(map (lambda (build-manifest)
(match-record build-manifest <build-manifest>
(channel-name manifest)
(cons (format-name channel-name) manifest)))
build-manifests))
(define (channel->input channel)
(let ((name (channel-name channel))
(url (channel-url channel))
(branch (channel-branch channel)))
`((#:name . ,(format-name name))
(#:url . ,url)
(#:load-path . ".")
(#:branch . ,branch)
(#:no-compile? #t))))
(define (package-path channels non-package-channels)
(filter-map (lambda (channel)
(let ((name (channel-name channel)))
(and (not (member name non-package-channels))
(not (eq? name 'guix))
(format-name name))))
channels))
(define (config->spec config)
(match-record config <simple-cuirass-configuration>
(build channels non-package-channels systems)
`((#:name . "simple-config")
(#:load-path-inputs . ("guix"))
(#:package-path-inputs . ,(package-path channels
non-package-channels))
(#:proc-input . "guix")
(#:proc-file . "build-aux/cuirass/gnu-system.scm")
(#:proc . cuirass-jobs)
(#:proc-args . ((systems . ,systems)
,@(if (eq? build 'all)
'()
`((subset . "manifests")
(manifests . ,(format-manifests build))))))
(#:inputs . ,(map channel->input channels))
(#:build-outputs . ())
(#:priority . 1))))
#~(list '#$(config->spec config)))