Fix insert-guix-revision to return an id

Rather than an id wrapped in a list.
This commit is contained in:
Christopher Baines 2019-08-31 12:07:22 +01:00
parent d35cc85d52
commit 66df42ae4f

View file

@ -36,7 +36,8 @@
store_path "') "
"RETURNING id;"))
(map car (exec-query conn insert)))
(match (exec-query conn insert)
(((id)) id)))
(define (guix-commit-exists? conn commit)
(define query