diff options
| -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 |