diff options
6 files changed, 30 insertions, 4 deletions
diff --git a/guix-data-service/model/git-repository.scm b/guix-data-service/model/git-repository.scm index 8639644..4eeb99d 100644 --- a/guix-data-service/model/git-repository.scm +++ b/guix-data-service/model/git-repository.scm @@ -47,12 +47,15 @@ (define (select-git-repository conn id) (match (exec-query conn - "SELECT label, url, cgit_url_base FROM git_repositories WHERE id = $1" + "SELECT label, url, cgit_url_base, fetch_with_authentication FROM git_repositories WHERE id = $1" (list id)) (() #f) - ((result) - result))) + (((label url cgit_url_base fetch_with_authentication)) + (list label + url + cgit_url_base + (string=? fetch_with_authentication "t"))))) (define (git-repository-id->url conn id) (match diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index 2c777de..d72639d 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -69,7 +69,7 @@ (with-thread-postgresql-connection (lambda (conn) (select-git-repository conn id)))) - ((label url cgit-url-base) + ((label url cgit-url-base fetch-with-authentication?) (letpar& ((branches (with-thread-postgresql-connection (lambda (conn) diff --git a/sqitch/deploy/git_repositories_add_fetch_with_authentication_field.sql b/sqitch/deploy/git_repositories_add_fetch_with_authentication_field.sql new file mode 100644 index 0000000..6734899 --- /dev/null +++ b/sqitch/deploy/git_repositories_add_fetch_with_authentication_field.sql @@ -0,0 +1,8 @@ +-- Deploy guix-data-service:git_repositories_add_fetch_with_authentication_field to pg + +BEGIN; + +ALTER TABLE git_repositories + ADD COLUMN fetch_with_authentication boolean NOT NULL DEFAULT TRUE; + +COMMIT; diff --git a/sqitch/revert/git_repositories_add_fetch_with_authentication_field.sql b/sqitch/revert/git_repositories_add_fetch_with_authentication_field.sql new file mode 100644 index 0000000..991039d --- /dev/null +++ b/sqitch/revert/git_repositories_add_fetch_with_authentication_field.sql @@ -0,0 +1,7 @@ +-- Revert guix-data-service:git_repositories_add_fetch_with_authentication_field from pg + +BEGIN; + +-- XXX Add DDLs here. + +COMMIT; diff --git a/sqitch/sqitch.plan b/sqitch/sqitch.plan index abb27fd..6055c5a 100644 --- a/sqitch/sqitch.plan +++ b/sqitch/sqitch.plan @@ -72,3 +72,4 @@ change_locale_values 2020-09-26T10:20:22Z Christopher Baines <mail@cbaines.net> change_autovacuum_config 2020-10-01T21:24:46Z Christopher Baines <mail@cbaines.net> # Change autovacuum config change_derivation_source_file_nars_constraint 2020-10-02T17:12:58Z Christopher Baines <mail@cbaines.net> # Change derivation source file nars constraint add_derivation_sources_derivation_source_file_id_index 2020-10-02T19:11:59Z Christopher Baines <mail@cbaines.net> # Add derivation_sources.derivation_source_file_id index +git_repositories_add_fetch_with_authentication_field 2020-10-07T17:31:20Z Christopher Baines <mail@cbaines.net> # Add git_repositories.fetch_with_authentication diff --git a/sqitch/verify/git_repositories_add_fetch_with_authentication_field.sql b/sqitch/verify/git_repositories_add_fetch_with_authentication_field.sql new file mode 100644 index 0000000..209aa61 --- /dev/null +++ b/sqitch/verify/git_repositories_add_fetch_with_authentication_field.sql @@ -0,0 +1,7 @@ +-- Verify guix-data-service:git_repositories_add_fetch_with_authentication_field on pg + +BEGIN; + +-- XXX Add verifications here. + +ROLLBACK; |