cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use fibers-batch-map

Browse source 
As the parallelism should probably be customised.
This commit is contained in:
Christopher Baines 2025-07-09 12:53:37 +01:00
parent 8dcc89df50
commit 3f837481fd
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -2598,7 +2598,7 @@ WHERE builder != 'builtin:download'
descriptions-by-locale)))) descriptions-by-locale))))
inferior-lint-checkers-data)))) inferior-lint-checkers-data))))
(lint-warnings-data (lint-warnings-data
(fibers-map (fibers-batch-map
(match-lambda (match-lambda
((checker-name _ network-dependent?) ((checker-name _ network-dependent?)
(and (and (not network-dependent?) (and (and (not network-dependent?)
@ -2613,6 +2613,7 @@ WHERE builder != 'builtin:download'
inferior-store inferior-store
checker-name)) checker-name))
#:memory-limit inferior-memory-limit))))) #:memory-limit inferior-memory-limit)))))
20 ; TODO
inferior-lint-checkers-data))) inferior-lint-checkers-data)))
(let ((package-ids (fibers-force package-ids-promise))) (let ((package-ids (fibers-force package-ids-promise)))
@ -2888,7 +2889,7 @@ WHERE builder != 'builtin:download'
(cons system drv))))) (cons system drv)))))
channel-derivations-by-system)) channel-derivations-by-system))
(derivation-ids-by-system (derivation-ids-by-system
(fibers-map (fibers-batch-map
(match-lambda (match-lambda
((system . drv) ((system . drv)
(cons system (cons system
@ -2900,6 +2901,7 @@ WHERE builder != 'builtin:download'
(make-hash-table) (make-hash-table)
(vector drv)) (vector drv))
0)))) 0))))
20 ; TODO
derivations-by-system))) derivations-by-system)))
(insert-channel-instances channel-instances-conn (insert-channel-instances channel-instances-conn