ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

describe: Delete 'directory' argument from 'display-checkout-info'.

Browse source 
This commit follows 1255400faa.

* guix/scripts/describe.scm (display-checkout-info): Delete 'directory'
argument.
This commit is contained in:
Oleg Pykhalov 2018-11-21 17:21:22 +03:00
parent 5df8f0689d
commit 01262f1ece
No known key found for this signature in database
GPG key ID: 167F8EA5001AFA9C
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/scripts/describe.scm
View file

@ -103,11 +103,11 @@ (define (channel->recutils channel port)
(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)))