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

Add a function to select derivation sources

Browse source
This commit is contained in:
Christopher Baines 2019-11-09 20:47:38 +00:00
parent 7b3bc5bcfa
commit 41afcef9a6
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -13,6 +13,7 @@
count-derivations count-derivations
select-derivation-by-file-name select-derivation-by-file-name
select-derivation-outputs-by-derivation-id select-derivation-outputs-by-derivation-id
select-derivation-sources-by-derivation-id
select-derivation-by-output-filename select-derivation-by-output-filename
select-derivations-using-output select-derivations-using-output
select-derivations-by-revision-name-and-version select-derivations-by-revision-name-and-version
@ -270,6 +271,20 @@ ORDER BY derivations.file_name"))
(exec-query conn query (list (number->string id)))) (exec-query conn query (list (number->string id))))
(define (select-derivation-sources-by-derivation-id conn id)
(define query
(string-append
"
SELECT derivation_source_files.store_path
FROM derivation_source_files
INNER JOIN derivation_sources
ON derivation_source_files.id = derivation_sources.derivation_source_file_id
WHERE derivation_sources.derivation_id = $1
ORDER BY 1"))
(map first
(exec-query conn query (list (number->string id)))))
(define (insert-derivation-inputs conn derivation-id derivation-inputs) (define (insert-derivation-inputs conn derivation-id derivation-inputs)
(define (insert-into-derivation-inputs output-ids) (define (insert-into-derivation-inputs output-ids)
(string-append "INSERT INTO derivation_inputs " (string-append "INSERT INTO derivation_inputs "