From 66df42ae4fddb7ac1ae6d2edc1faaf446457270b Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 31 Aug 2019 12:07:22 +0100 Subject: Fix insert-guix-revision to return an id Rather than an id wrapped in a list. --- guix-data-service/model/guix-revision.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/guix-data-service/model/guix-revision.scm b/guix-data-service/model/guix-revision.scm index 85ae9b7..03253d3 100644 --- a/guix-data-service/model/guix-revision.scm +++ b/guix-data-service/model/guix-revision.scm @@ -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 -- cgit v1.2.3