diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2025-07-17 15:25:44 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2025-07-17 16:41:24 +0200 |
| commit | b8164e5f0ec198db3839137a8c2d6d841ec40789 (patch) | |
| tree | a6d2190c546d7598e86cb8c93c07cb9418b4ce1b /build-aux | |
| parent | eb73b0336d18918e50bffea5ad4d38e3d5b89dfe (diff) | |
build: Update push URL regexp for ‘update-guix-package’ script.
* build-aux/update-guix-package.scm (%guix-git-repo-push-url-regexp):
Add pattern for “git@codeberg.org” SSH URLs.
Change-Id: I88d8e3ca6ed4353ad692a919113bb5f3eec44ae5
Diffstat (limited to 'build-aux')
| -rw-r--r-- | build-aux/update-guix-package.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/build-aux/update-guix-package.scm b/build-aux/update-guix-package.scm index d37229c5ecc..62a7ca46371 100644 --- a/build-aux/update-guix-package.scm +++ b/build-aux/update-guix-package.scm | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | ;;; GNU Guix --- Functional package management for GNU | 1 | ;;; GNU Guix --- Functional package management for GNU |
| 2 | ;;; Copyright © 2017, 2018 Ludovic Courtès <ludo@gnu.org> | 2 | ;;; Copyright © 2017-2018, 2025 Ludovic Courtès <ludo@gnu.org> |
| 3 | ;;; Copyright © 2020, 2025 Maxim Cournoyer <maxim.cournoyer@gmail.com> | 3 | ;;; Copyright © 2020, 2025 Maxim Cournoyer <maxim.cournoyer@gmail.com> |
| 4 | ;;; | 4 | ;;; |
| 5 | ;;; This file is part of GNU Guix. | 5 | ;;; This file is part of GNU Guix. |
| @@ -126,7 +126,7 @@ COMMIT. PROC receives the temporary directory file name as an argument." | |||
| 126 | (invoke "git" "worktree" "remove" "--force" tmp-directory)))))) | 126 | (invoke "git" "worktree" "remove" "--force" tmp-directory)))))) |
| 127 | 127 | ||
| 128 | (define %guix-git-repo-push-url-regexp | 128 | (define %guix-git-repo-push-url-regexp |
| 129 | "(git.guix.gnu.org|codeberg.org/guix)/guix(.git)? \\(push\\)") | 129 | "(git.guix.gnu.org|codeberg.org/guix|git@codeberg.org:guix)/guix(.git)? \\(push\\)") |
| 130 | 130 | ||
| 131 | (define-syntax-rule (with-input-pipe-to-string prog arg ...) | 131 | (define-syntax-rule (with-input-pipe-to-string prog arg ...) |
| 132 | (let* ((input-pipe (open-pipe* OPEN_READ prog arg ...)) | 132 | (let* ((input-pipe (open-pipe* OPEN_READ prog arg ...)) |