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

Support excluding and including branches from a repository

Browse source 
So that you can have the Guix Data Service only pay attention to some of the
branches.
This commit is contained in:
Christopher Baines 2020-02-08 12:03:41 +00:00
parent bb271c366b
commit c31c9575e0
6 changed files with 70 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

18
guix-data-service/model/git-repository.scm
View file

@ -19,9 +19,11 @@
#:use-module (ice-9 match)
#:use-module (json)
#:use-module (squee)
#:use-module (guix-data-service model utils)
#:export (all-git-repositories
select-git-repository
git-repository-id->url
select-includes-and-excluded-branches-for-git-repository
count-git-repositories-with-x-git-repo-header-values
git-repository-x-git-repo-header->git-repository-id
git-repository-url->git-repository-id
@ -61,6 +63,22 @@
(list id))
(((url)) url)))
(define (select-includes-and-excluded-branches-for-git-repository conn id)
(match (exec-query
conn
"
SELECT included_branches, excluded_branches
FROM git_repositories WHERE id = $1"
(list (number->string id)))
(((included_branches excluded_branches))
(values
(if (string=? included_branches "")
'()
(parse-postgresql-array-string included_branches))
(if (string=? excluded_branches "")
'()
(parse-postgresql-array-string excluded_branches))))))
(define (count-git-repositories-with-x-git-repo-header-values conn)
(match (exec-query
conn