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

Tweak some post extract-information-from actions

Browse source 
Move update-package-derivations-table further on since it locks a table, and
use let for the guix-revision-id.
This commit is contained in:
Christopher Baines 2025-04-19 13:05:16 +01:00
parent 1c0b216067
commit ce01df5211
1 changed files with 30 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2604,35 +2604,37 @@ SELECT store_path FROM derivation_source_files WHERE id = $1"
#:ignore-systems ignore-systems #:ignore-systems ignore-systems
#:ignore-targets ignore-targets #:ignore-targets ignore-targets
#:parallelism parallelism) #:parallelism parallelism)
(let ((guix-revision-id
(fibers-force guix-revision-id-promise)))
(and
(if (defined? 'channel-news-for-commit
(resolve-module '(guix channels)))
(with-time-logging "inserting channel news entries"
(insert-channel-news-entries-for-guix-revision
conn
guix-revision-id
(channel-news-for-commit channel-for-commit commit)))
(begin
(simple-format
#t "debug: importing channel news not supported\n")
#t))
(if (defined? 'channel-news-for-commit (with-time-logging "updating builds.derivation_output_details_set_id"
(resolve-module '(guix channels))) (update-builds-derivation-output-details-set-id
(with-time-logging "inserting channel news entries" conn
(insert-channel-news-entries-for-guix-revision guix-revision-id))
conn (update-package-derivations-table
(fibers-force guix-revision-id-promise) conn
(channel-news-for-commit channel-for-commit commit))) git-repository-id
(begin guix-revision-id
(simple-format commit)
#t "debug: importing channel news not supported\n") (let ((stats (gc-stats)))
#t)) (format (current-error-port)
"gc-stats: time taken: ~3fs, times: ~d~%"
(update-package-derivations-table (/ (assq-ref stats 'gc-time-taken)
conn internal-time-units-per-second)
git-repository-id (assq-ref stats 'gc-times))
(fibers-force guix-revision-id-promise) #t))))
commit)
(with-time-logging "updating builds.derivation_output_details_set_id"
(update-builds-derivation-output-details-set-id
conn
(fibers-force guix-revision-id-promise)))
(let ((stats (gc-stats)))
(format (current-error-port)
"gc-stats: time taken: ~3fs, times: ~d~%"
(/ (assq-ref stats 'gc-time-taken)
internal-time-units-per-second)
(assq-ref stats 'gc-times))
#t))
(begin (begin
(simple-format #t "Failed to generate store item for ~A\n" (simple-format #t "Failed to generate store item for ~A\n"
commit) commit)