diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-05-05 13:35:48 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-05-05 14:36:52 +0100 |
| commit | ce4c3c6ed3979e54a8d5db6514bf4ed87de8b707 (patch) | |
| tree | ed0e8c4b4a87ebad122fb831e6ea1d01ac6f037b /guix-data-service/model/guix-revision.scm | |
| parent | 051962b54d9a647adc8c09fb8ef33db2ac9b659a (diff) | |
| download | data-service-ce4c3c6ed3979e54a8d5db6514bf4ed87de8b707.tar data-service-ce4c3c6ed3979e54a8d5db6514bf4ed87de8b707.tar.gz | |
Switch to storing Git repositories in a table
Rather than just storing the URL in the guix_revisions and
load_new_guix_revision_jobs tables. This will help when storing more
information like tags and branches in the future.
Diffstat (limited to 'guix-data-service/model/guix-revision.scm')
| -rw-r--r-- | guix-data-service/model/guix-revision.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/guix-data-service/model/guix-revision.scm b/guix-data-service/model/guix-revision.scm index f03aa6d..6ae7693 100644 --- a/guix-data-service/model/guix-revision.scm +++ b/guix-data-service/model/guix-revision.scm @@ -25,21 +25,22 @@ id) (() #f))) -(define (insert-guix-revision conn url commit store_path) +(define (insert-guix-revision conn git-repository-id commit store_path) (define insert (string-append "INSERT INTO guix_revisions " - "(url, commit, store_path) VALUES " - "('" url "', '" + "(git_repository_id, commit, store_path) VALUES " + "(" git-repository-id ", '" commit "', '" store_path "') " "RETURNING id;")) (map car (exec-query conn insert))) -(define (guix-revision-exists? conn url commit) +(define (guix-revision-exists? conn git-repository-id commit) (define query (string-append "SELECT EXISTS(" - "SELECT 1 FROM guix_revisions WHERE url = '" url "' " + "SELECT 1 FROM guix_revisions WHERE " + "git_repository_id = '" git-repository-id "' " "AND commit = '" commit "')" ";")) |