[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: describe: Delete 'directory' argument from 'display-checkout-info
From: |
guix-commits |
Subject: |
01/01: describe: Delete 'directory' argument from 'display-checkout-info'. |
Date: |
Tue, 27 Nov 2018 12:12:37 -0500 (EST) |
wigust pushed a commit to branch master
in repository guix.
commit 01262f1ece37d5ae9af56c1de6c4eefc758f35ba
Author: Oleg Pykhalov <address@hidden>
Date: Wed Nov 21 17:21:22 2018 +0300
describe: Delete 'directory' argument from 'display-checkout-info'.
This commit follows 1255400faabfcf0ca1666d17f2f34ea0d49f6b1f.
* guix/scripts/describe.scm (display-checkout-info): Delete 'directory'
argument.
---
guix/scripts/describe.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/guix/scripts/describe.scm b/guix/scripts/describe.scm
index 98be4ee..f21311a 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)))