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

Avoid a vector->list

Browse source 
As the knots fibers utils accept vectors.
This commit is contained in:
Christopher Baines 2025-03-10 10:13:43 +00:00
parent f56cae63fc
commit 001805a2c9
1 changed files with 46 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -934,9 +934,8 @@
package-ids
lint-checker-ids
lint-warnings-data)
(concatenate!
(filter-map
(lambda (lint-checker-id warnings-per-package)
(vector-fold
(lambda (_ result lint-checker-id warnings-per-package)
(if warnings-per-package
(vector-fold
(lambda (_ result package-id warnings)
@ -963,12 +962,13 @@
lint-warning-message-set-id))))
warnings)))
result)))
'()
result
package-ids
warnings-per-package)
#f))
(vector->list lint-checker-ids)
lint-warnings-data)))
result))
'()
lint-checker-ids
lint-warnings-data))
(define (update-derivation-ids-hash-table! conn
derivation-ids-hash-table
@ -1540,8 +1540,9 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1"
(match res
((inferior . inferior-store)
(let* ((systems
(inferior-eval '(@ (guix packages) %supported-systems)
inferior))
'("x86_64-linux"))
;; (inferior-eval '(@ (guix packages) %supported-systems)
;; inferior))
(ignored-systems
(lset-intersection string=?
systems
@ -2000,8 +2001,7 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1"
(inferior-lint-warnings inferior
inferior-store
checker-name)))))))
(vector->list
inferior-lint-checkers-data))))
inferior-lint-checkers-data)))
(let ((package-ids (fibers-force package-ids-promise)))
(with-resource-from-pool postgresql-connection-pool conn
@ -2095,7 +2095,13 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1"
(round
(/ (assoc-ref stats 'heap-size)
(expt 2. 20)))))
inferior))
inferior)
;; (inferior-eval
;; '((@@ (guix memoization) show-memoization-tables))
;; inferior)
*unspecified*)
(define (get-derivations system target)
(let ((derivations-vector (make-vector packages-count)))