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

Stop inserting missing source file nars

Browse source 
This was more an issue several years ago, so this code is not really needed
now.
This commit is contained in:
Christopher Baines 2024-07-16 16:06:46 +01:00
parent a61c4baccd
commit 1754d1a321
1 changed files with 63 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

21
guix-data-service/model/derivation.scm
View file

@ -1806,11 +1806,7 @@ WHERE " criteria ";"))
(exec-query conn (select-existing-derivations chunk)))) (exec-query conn (select-existing-derivations chunk))))
(chunk! missing-file-names 1000))))) (chunk! missing-file-names 1000)))))
(define (derivation-file-names->derivation-ids conn derivation-file-names) (define (insert-source-files-missing-nars conn derivation-ids)
(define derivations-count
(vector-length derivation-file-names))
(define (insert-source-files-missing-nars derivation-ids)
(define (derivation-ids->next-related-derivation-ids! ids seen-ids) (define (derivation-ids->next-related-derivation-ids! ids seen-ids)
(delete-duplicates/sort! (delete-duplicates/sort!
(append-map! (append-map!
@ -1892,6 +1888,10 @@ INNER JOIN derivation_source_files
next-related-derivation-ids next-related-derivation-ids
seen-ids)))))) seen-ids))))))
(define (derivation-file-names->derivation-ids conn derivation-file-names)
(define derivations-count
(vector-length derivation-file-names))
(if (= 0 derivations-count) (if (= 0 derivations-count)
#() #()
(let* ((derivation-ids-hash-table (make-hash-table (let* ((derivation-ids-hash-table (make-hash-table
@ -1951,17 +1951,6 @@ INNER JOIN derivation_source_files
#f)) #f))
derivation-file-names))) derivation-file-names)))
(with-time-logging "insert-source-files-missing-nars"
(insert-source-files-missing-nars
;; TODO Avoid this conversion
(vector-fold
(lambda (_ result x)
(if x
(cons x result)
result))
'()
all-ids)))
all-ids))))) all-ids)))))
(define (update-derivation-inputs-statistics conn) (define (update-derivation-inputs-statistics conn)