diff options
| -rw-r--r-- | guix-data-service/model/derivation.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/guix-data-service/model/derivation.scm b/guix-data-service/model/derivation.scm index 84801a9..e5de539 100644 --- a/guix-data-service/model/derivation.scm +++ b/guix-data-service/model/derivation.scm @@ -9,6 +9,7 @@ #:use-module (guix derivations) #:use-module (guix-data-service model utils) #:export (valid-systems + count-derivations select-derivation-by-file-name select-derivation-outputs-by-derivation-id select-derivation-by-output-filename @@ -27,6 +28,12 @@ conn "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) (string-append "SELECT id, file_name " "FROM derivations " |