diff options
Diffstat (limited to 'guix-data-service/model/guix-revision-package-derivation.scm')
| -rw-r--r-- | guix-data-service/model/guix-revision-package-derivation.scm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/guix-data-service/model/guix-revision-package-derivation.scm b/guix-data-service/model/guix-revision-package-derivation.scm new file mode 100644 index 0000000..733dad2 --- /dev/null +++ b/guix-data-service/model/guix-revision-package-derivation.scm @@ -0,0 +1,20 @@ +(define-module (guix-data-service model guix-revision-package-derivation) + #:use-module (squee) + #:export (insert-guix-revision-package-derivations)) + +(define (insert-guix-revision-package-derivations + conn guix-revision-id package-derivation-ids) + (define insert + (string-append "INSERT INTO guix_revision_package_derivations " + "(revision_id, package_derivation_id) " + "VALUES " + (string-join (map (lambda (package-derivation-id) + (simple-format + #f "(~A, ~A)" + guix-revision-id + package-derivation-id)) + package-derivation-ids) + ", ") + ";")) + + (exec-query conn insert)) |