diff options
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 "')" ";")) |