cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Return a number from count-guix-revisions

Browse source
This commit is contained in:
Christopher Baines 2020-09-20 18:38:39 +01:00
parent e38db9eed9
commit 857ac36711
2 changed files with 5 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/model/guix-revision.scm
View file

@ -30,10 +30,10 @@
guix-revisions-cgit-url-bases)) guix-revisions-cgit-url-bases))
(define (count-guix-revisions conn) (define (count-guix-revisions conn)
(first (match (exec-query
(exec-query
conn conn
"SELECT COUNT(*) FROM guix_revisions"))) "SELECT COUNT(*) FROM guix_revisions")
(((x)) (string->number x))))
(define (most-recent-n-guix-revisions conn n) (define (most-recent-n-guix-revisions conn n)
(exec-query conn "SELECT * FROM guix_revisions ORDER BY id DESC LIMIT 10")) (exec-query conn "SELECT * FROM guix_revisions ORDER BY id DESC LIMIT 10"))

5
guix-data-service/web/controller.scm
View file

@ -348,10 +348,7 @@
(with-postgresql-connection (with-postgresql-connection
"web healthcheck" "web healthcheck"
(lambda (conn) (lambda (conn)
(number? (number? (count-guix-revisions conn)))))
(string->number
(first
(count-guix-revisions conn)))))))
(lambda (key . args) (lambda (key . args)
#f)))) #f))))
(render-json (render-json