Return a number from count-guix-revisions

2020-09-20 18:38:39 +01:00 · 2020-09-20 18:38:39 +01:00 · 857ac36711
commit 857ac36711
parent e38db9eed9
2 changed files with 5 additions and 8 deletions
--- 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"))