aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/model/guix-revision-package-derivation.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-03-11 22:11:14 +0000
committerChristopher Baines <mail@cbaines.net>2019-03-11 22:11:14 +0000
commite117bb1d87174d2f3448367f0208fc3340f88e51 (patch)
tree921a845f0cf06a1cbc04267747127015684426a1 /guix-data-service/model/guix-revision-package-derivation.scm
parent5bc0e7d4bf2b55f7c62c98ae8ae268fbe53b30f0 (diff)
downloaddata-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.scm20
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))