diff options
| author | Oleg Pykhalov <go.wigust@gmail.com> | 2018-11-21 17:21:22 +0300 |
|---|---|---|
| committer | Oleg Pykhalov <go.wigust@gmail.com> | 2018-11-27 20:09:03 +0300 |
| commit | 01262f1ece37d5ae9af56c1de6c4eefc758f35ba (patch) | |
| tree | dff9cfadf0bc2532adeae0a3213572510c6928ad | |
| parent | 5df8f0689d4c79264d04b5f0107a463e0b7ea7a5 (diff) | |
| download | gnu-guix-01262f1ece37d5ae9af56c1de6c4eefc758f35ba.tar gnu-guix-01262f1ece37d5ae9af56c1de6c4eefc758f35ba.tar.gz | |
describe: Delete 'directory' argument from 'display-checkout-info'.
This commit follows 1255400faabfcf0ca1666d17f2f34ea0d49f6b1f.
* guix/scripts/describe.scm (display-checkout-info): Delete 'directory'
argument.
| -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))) |