Message ID | 20181121142706.21058-1-go.wigust@gmail.com |
---|---|
State | Accepted |
Headers | show |
Series | [bug#33454] describe: Delete directory argument from 'display-checkout-info'. | expand |
Context | Check | Description |
---|---|---|
cbaines/applying patch | success | Successfully applied |
Oleg Pykhalov <go.wigust@gmail.com> skribis: > This commit is a following 1255400faabfcf0ca1666d17f2f34ea0d49f6b1f which > added unused optional 'directory' argument. > > * guix/scripts/describe.scm (display-checkout-info): Delete directory > argument. LGTM! I had overlooked this… Thanks, Ludo’.
ludo@gnu.org (Ludovic Courtès) writes: > Oleg Pykhalov <go.wigust@gmail.com> skribis: > >> This commit is a following 1255400faabfcf0ca1666d17f2f34ea0d49f6b1f which >> added unused optional 'directory' argument. >> >> * guix/scripts/describe.scm (display-checkout-info): Delete directory >> argument. > > LGTM! OK, pushed as 01262f1ece37d5ae9af56c1de6c4eefc758f35ba Thanks, Oleg.
diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm index d817d7f7c..761f212f0 100644 --- a/guix/scripts/describe.scm +++ b/guix/scripts/describe.scm @@ -84,11 +84,11 @@ Display information about the channels currently in use.\n")) (format #t (G_ "~%;; warning: GUIX_PACKAGE_PATH=\"~a\"~%") string)))))) -(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)))