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