cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a guix-commit-exists? function

Browse source
This commit is contained in:
Christopher Baines 2019-05-11 20:33:35 +01:00
parent 3611f7b122
commit a81a016380
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/model/guix-revision.scm
View file

@ -6,6 +6,7 @@
most-recent-n-guix-revisions most-recent-n-guix-revisions
commit->revision-id commit->revision-id
insert-guix-revision insert-guix-revision
guix-commit-exists?
guix-revision-exists?)) guix-revision-exists?))
(define (count-guix-revisions conn) (define (count-guix-revisions conn)
@ -36,6 +37,14 @@
(map car (exec-query conn insert))) (map car (exec-query conn insert)))
(define (guix-commit-exists? conn commit)
(define query
"SELECT EXISTS(SELECT 1 FROM guix_revisions WHERE commit = $1)")
(let ((result (caar
(exec-query conn query (list commit)))))
(string=? result "t")))
(define (guix-revision-exists? conn git-repository-id commit) (define (guix-revision-exists? conn git-repository-id commit)
(define query (define query
(string-append "SELECT EXISTS(" (string-append "SELECT EXISTS("