mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Add a function to get a count of derivations
This commit is contained in:
parent
1cdbdef513
commit
77397538f7
|
@ -9,6 +9,7 @@
|
||||||
#:use-module (guix derivations)
|
#:use-module (guix derivations)
|
||||||
#:use-module (guix-data-service model utils)
|
#:use-module (guix-data-service model utils)
|
||||||
#:export (valid-systems
|
#:export (valid-systems
|
||||||
|
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-by-output-filename
|
select-derivation-by-output-filename
|
||||||
|
@ -27,6 +28,12 @@
|
||||||
conn
|
conn
|
||||||
"SELECT DISTINCT system FROM derivations ORDER BY 1")))
|
"SELECT DISTINCT system FROM derivations ORDER BY 1")))
|
||||||
|
|
||||||
|
(define (count-derivations conn)
|
||||||
|
(first
|
||||||
|
(exec-query
|
||||||
|
conn
|
||||||
|
"SELECT COUNT(*) FROM derivations")))
|
||||||
|
|
||||||
(define (select-existing-derivations file-names)
|
(define (select-existing-derivations file-names)
|
||||||
(string-append "SELECT id, file_name "
|
(string-append "SELECT id, file_name "
|
||||||
"FROM derivations "
|
"FROM derivations "
|
||||||
|
|
Loading…
Reference in a new issue