diff options
author | Christopher Baines <mail@cbaines.net> | 2019-07-19 21:22:15 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-07-19 21:22:15 +0100 |
commit | 1f977f6c125e10061610dd62c7287e6e9448dea5 (patch) | |
tree | 9bc4f9d736378f8cb231eb15cb0e59b8ef4a2abf /guix-data-service/model/git-repository.scm | |
parent | 6dd52f08edbe7525c26b86a0d1a414b96cf2288d (diff) | |
download | data-service-1f977f6c125e10061610dd62c7287e6e9448dea5.tar data-service-1f977f6c125e10061610dd62c7287e6e9448dea5.tar.gz |
Improve how repositories and branches are handled
Make the link between repositories and branches clearer, replacing the
/branches and /branch pages by /repository/ and /repository/*/branch/* pages.
Diffstat (limited to 'guix-data-service/model/git-repository.scm')
-rw-r--r-- | guix-data-service/model/git-repository.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/guix-data-service/model/git-repository.scm b/guix-data-service/model/git-repository.scm index bbb5553..8eb7ee6 100644 --- a/guix-data-service/model/git-repository.scm +++ b/guix-data-service/model/git-repository.scm @@ -3,6 +3,7 @@ #:use-module (json) #:use-module (squee) #:export (all-git-repositories + select-git-repository git-repository-id->url git-repository-url->git-repository-id git-repositories-containing-commit @@ -15,6 +16,16 @@ (string-append "SELECT id, label, url FROM git_repositories ORDER BY id ASC"))) +(define (select-git-repository conn id) + (match (exec-query + conn + "SELECT label, url, cgit_url_base FROM git_repositories WHERE id = $1" + (list id)) + (() + #f) + ((result) + result))) + (define (git-repository-id->url conn id) (match (exec-query |