diff options
author | Christopher Baines <mail@cbaines.net> | 2020-09-20 18:38:39 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-09-20 18:38:39 +0100 |
commit | 857ac36711d84ab3dab5b73fc5f25f158a1af3b9 (patch) | |
tree | 8093f89959ebd84348e681b44073faab16fe2d53 /guix-data-service/model | |
parent | e38db9eed95de0f286e666b630d082ddb9e263ce (diff) | |
download | data-service-857ac36711d84ab3dab5b73fc5f25f158a1af3b9.tar data-service-857ac36711d84ab3dab5b73fc5f25f158a1af3b9.tar.gz |
Return a number from count-guix-revisions
Diffstat (limited to 'guix-data-service/model')
-rw-r--r-- | guix-data-service/model/guix-revision.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix-data-service/model/guix-revision.scm b/guix-data-service/model/guix-revision.scm index 4dd4100..1cde5e2 100644 --- a/guix-data-service/model/guix-revision.scm +++ b/guix-data-service/model/guix-revision.scm @@ -30,10 +30,10 @@ guix-revisions-cgit-url-bases)) (define (count-guix-revisions conn) - (first - (exec-query - conn - "SELECT COUNT(*) FROM guix_revisions"))) + (match (exec-query + conn + "SELECT COUNT(*) FROM guix_revisions") + (((x)) (string->number x)))) (define (most-recent-n-guix-revisions conn n) (exec-query conn "SELECT * FROM guix_revisions ORDER BY id DESC LIMIT 10")) |