me
/
guix
Archived
1
0
Fork 0
Code

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

This commit follows 1255400faa.

* guix/scripts/describe.scm (display-checkout-info): Delete 'directory'
argument.
master
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 @@ 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)))