summaryrefslogtreecommitdiff
path: root/guix/scripts/describe.scm
diff options
context:
space:
mode:
authorOleg Pykhalov <go.wigust@gmail.com>2018-11-21 17:21:22 +0300
committerOleg Pykhalov <go.wigust@gmail.com>2018-11-27 20:09:03 +0300
commit01262f1ece37d5ae9af56c1de6c4eefc758f35ba (patch)
treedff9cfadf0bc2532adeae0a3213572510c6928ad /guix/scripts/describe.scm
parent5df8f0689d4c79264d04b5f0107a463e0b7ea7a5 (diff)
describe: Delete 'directory' argument from 'display-checkout-info'.
This commit follows 1255400faabfcf0ca1666d17f2f34ea0d49f6b1f. * guix/scripts/describe.scm (display-checkout-info): Delete 'directory' argument.
Diffstat (limited to 'guix/scripts/describe.scm')
-rw-r--r--guix/scripts/describe.scm4
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)))