From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:55682) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gPTUA-0006D3-7k for guix-patches@gnu.org; Wed, 21 Nov 2018 09:28:10 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gPTU3-0003rD-Vd for guix-patches@gnu.org; Wed, 21 Nov 2018 09:28:10 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:33741) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gPTU2-0003pm-FP for guix-patches@gnu.org; Wed, 21 Nov 2018 09:28:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1gPTU2-00013c-AQ for guix-patches@gnu.org; Wed, 21 Nov 2018 09:28:02 -0500 Subject: [bug#33454] [PATCH] describe: Delete directory argument from 'display-checkout-info'. References: <20181121085959.31035-1-go.wigust@gmail.com> In-Reply-To: <20181121085959.31035-1-go.wigust@gmail.com> Resent-Message-ID: From: Oleg Pykhalov Date: Wed, 21 Nov 2018 17:27:06 +0300 Message-Id: <20181121142706.21058-1-go.wigust@gmail.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 33454@debbugs.gnu.org This commit is a following 1255400faabfcf0ca1666d17f2f34ea0d49f6b1f which added unused optional 'directory' argument. * 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 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))) -- 2.19.1