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

Remove compatability with old guix derivation-inputs

Browse source
This commit is contained in:
Christopher Baines 2025-03-09 13:20:08 +00:00
parent 59f1a04f4e
commit 61d49cedb3
1 changed files with 5 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1415,15 +1415,11 @@ VALUES ($1, $2);"
derivation-id derivation-id
(append-map! (append-map!
(match-lambda (match-lambda
(($ <derivation-input> derivation-or-path sub-derivations) ;; The first field changed to a derivation (from the file name)
(let ((path ;; in 5cf4b26d52bcea382d98fb4becce89be9ee37b55, so guard against
(match derivation-or-path ;; that in the match
((? derivation? d) (($ <derivation-input> (? derivation? d) sub-derivations)
;; The first field changed to a derivation (from the file (let ((path (derivation-file-name d)))
;; name) in 5cf4b26d52bcea382d98fb4becce89be9ee37b55
(derivation-file-name d))
((? string? s)
s))))
(map (lambda (sub-derivation) (map (lambda (sub-derivation)
(select-derivation-output-id conn (select-derivation-output-id conn
sub-derivation sub-derivation