From 0c72ee747c253ea538032c6593683af6a54af5d3 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 8 Apr 2019 21:03:59 +0100 Subject: [PATCH] Add a function to get a count of Guix revisions --- guix-data-service/model/guix-revision.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/guix-data-service/model/guix-revision.scm b/guix-data-service/model/guix-revision.scm index 34df5e6..f03aa6d 100644 --- a/guix-data-service/model/guix-revision.scm +++ b/guix-data-service/model/guix-revision.scm @@ -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"))