diff options
author | Marius Bakke <mbakke@fastmail.com> | 2018-11-29 15:56:49 +0100 |
---|---|---|
committer | Marius Bakke <mbakke@fastmail.com> | 2018-11-29 15:56:49 +0100 |
commit | 25ca46985ccb26880f98b479d2a3ac862b20006e (patch) | |
tree | b52670028a36c5815f16311438c4c5f1f0f3e759 /guix/scripts/describe.scm | |
parent | e2b9ed7fcc019df290f0f5bbe221803efb031123 (diff) | |
parent | 7af6e5daa4ffb1bbda48a4e990815066f21bdadc (diff) | |
download | gnu-guix-25ca46985ccb26880f98b479d2a3ac862b20006e.tar gnu-guix-25ca46985ccb26880f98b479d2a3ac862b20006e.tar.gz |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/scripts/describe.scm')
-rw-r--r-- | guix/scripts/describe.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm index 98be4ee89f..f21311af09 100644 --- a/guix/scripts/describe.scm +++ b/guix/scripts/describe.scm @@ -103,11 +103,11 @@ Display information about the channels currently in use.\n")) (format port "url: ~a~%" (channel-url channel)) (format port "commit: ~a~%" (channel-commit channel))) -(define* (display-checkout-info fmt #:optional directory) +(define (display-checkout-info fmt) "Display information about the current checkout according to FMT, a symbol denoting the requested format. Exit if the current directory does not lie within a Git checkout." - (let* ((program (or directory (car (command-line)))) + (let* ((program (car (command-line))) (directory (catch 'git-error (lambda () (repository-discover (dirname program))) |