diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-03-13 13:08:38 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-05-01 17:26:18 +0200 |
| commit | 88573dd928a854139c63508c5454056e42482c90 (patch) | |
| tree | 770e49eb1e66a39539145d2b2710019ed6e2d2e2 | |
| parent | 7b4bf4ee888af10406da37934341a7a56186b258 (diff) | |
| download | guix-patches-88573dd928a854139c63508c5454056e42482c90.tar guix-patches-88573dd928a854139c63508c5454056e42482c90.tar.gz | |
git authenticate: Discover the repository.
This allows one to run ‘guix git authenticate’ from a sub-directory of
the checkout.
* guix/scripts/git/authenticate.scm (%default-options): Remove
‘directory’ key.
(guix-git-authenticate): Use ‘repository-discover’ when ‘directory’
option is missing.
Change-Id: Ifada00d559254971ed7eeb8c0a8d4ae74ff3defc
| -rw-r--r-- | guix/scripts/git/authenticate.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/scripts/git/authenticate.scm b/guix/scripts/git/authenticate.scm index a606f1c146..d81a0e1ffb 100644 --- a/guix/scripts/git/authenticate.scm +++ b/guix/scripts/git/authenticate.scm @@ -74,7 +74,7 @@ (alist-cons 'show-stats? #t result))))) (define %default-options - '((directory . "."))) + '()) (define (current-branch repository) "Return the name of the checked out branch of REPOSITORY or #f if it could @@ -236,9 +236,9 @@ expected COMMIT and SIGNER~%"))) (with-error-handling (with-git-error-handling - (let* ((directory (assoc-ref options 'directory)) - (show-stats? (assoc-ref options 'show-stats?)) - (repository (repository-open directory)) + (let* ((show-stats? (assoc-ref options 'show-stats?)) + (repository (repository-open (or (assoc-ref options 'directory) + (repository-discover ".")))) (commit signer (match (command-line-arguments options) ((commit signer) (values commit signer)) |