guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Add a function to get a count of Guix revisions

Browse source
This commit is contained in:
Christopher Baines 2019-04-08 21:03:59 +01:00
parent 77397538f7
commit 0c72ee747c
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1,11 +1,19 @@
(define-module (guix-data-service model guix-revision)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match)
#:use-module (squee)
#:export (most-recent-n-guix-revisions
#:export (count-guix-revisions
most-recent-n-guix-revisions
commit->revision-id
insert-guix-revision
guix-revision-exists?))
(define (count-guix-revisions conn)
(first
(exec-query
conn
"SELECT COUNT(*) FROM guix_revisions")))
(define (most-recent-n-guix-revisions conn n)
(exec-query conn "SELECT * FROM guix_revisions ORDER BY id DESC LIMIT 10"))