diff options
author | Christopher Baines <mail@cbaines.net> | 2019-03-11 22:11:14 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-03-11 22:11:14 +0000 |
commit | e117bb1d87174d2f3448367f0208fc3340f88e51 (patch) | |
tree | 921a845f0cf06a1cbc04267747127015684426a1 /guix-data-service/model/guix-revision-package-derivation.scm | |
parent | 5bc0e7d4bf2b55f7c62c98ae8ae268fbe53b30f0 (diff) | |
download | data-service-e117bb1d87174d2f3448367f0208fc3340f88e51.tar data-service-e117bb1d87174d2f3448367f0208fc3340f88e51.tar.gz |
Many changes
A large proportion of these changes relate to changing the way
packages relate to derivations. Previously, a package at a given
revision had a single derivation. This was OK, but didn't account for
multiple architectures.
Therefore, these changes mean that a package has multiple derivations,
depending on the system of the derivation, and the target system.
There are multiple changes, small and large to the web interface as
well. More pages link to each other, and the visual display has been
improved somewhat.
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)) |