mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
e117bb1d87
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.
20 lines
882 B
Scheme
20 lines
882 B
Scheme
(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))
|