diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-08-31 12:07:22 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-08-31 12:07:22 +0100 |
| commit | 66df42ae4fddb7ac1ae6d2edc1faaf446457270b (patch) | |
| tree | 73a31fd46af03d70a7526d3043071b569550709b | |
| parent | d35cc85d52c2200dc3859bd0f426a3c01e4d906d (diff) | |
| download | data-service-66df42ae4fddb7ac1ae6d2edc1faaf446457270b.tar data-service-66df42ae4fddb7ac1ae6d2edc1faaf446457270b.tar.gz | |
Fix insert-guix-revision to return an id
Rather than an id wrapped in a list.
| -rw-r--r-- | guix-data-service/model/guix-revision.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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 |