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

Add a function for selecting derivation source files

Browse source
This commit is contained in:
Christopher Baines 2019-11-14 21:32:34 +00:00
parent 5d7dadc9fe
commit 759ced5c9d
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -14,6 +14,7 @@
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-sources-by-derivation-id
select-derivation-source-file-by-store-path
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
@ -293,6 +294,15 @@ ORDER BY 1"))
(map first (map first
(exec-query conn query (list (number->string id))))) (exec-query conn query (list (number->string id)))))
(define (select-derivation-source-file-by-store-path conn store-path)
(define query
"
SELECT id
FROM derivation_source_files
WHERE store_path = $1")
(map car (exec-query conn query (list store-path))))
(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 "