From fe8102e1dfbc6dd83cc4ad03e2869a967750ba4f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 5 Sep 2019 16:40:39 +0200 Subject: Use numeric ids for git repositories --- guix-data-service/model/git-repository.scm | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) (limited to 'guix-data-service/model/git-repository.scm') diff --git a/guix-data-service/model/git-repository.scm b/guix-data-service/model/git-repository.scm index 610dc49..8c7cb14 100644 --- a/guix-data-service/model/git-repository.scm +++ b/guix-data-service/model/git-repository.scm @@ -11,10 +11,17 @@ guix-revisions-and-jobs-for-git-repository)) (define (all-git-repositories conn) - (exec-query - conn - (string-append - "SELECT id, label, url, cgit_url_base FROM git_repositories ORDER BY id ASC"))) + (map + (match-lambda + ((id label url cgit-base-url) + (list (string->number id) + label + url + cgit-base-url))) + (exec-query + conn + (string-append + "SELECT id, label, url, cgit_url_base FROM git_repositories ORDER BY id ASC")))) (define (select-git-repository conn id) (match (exec-query -- cgit v1.2.3