Don't fail when a repository can't be found
Report it instead.
This commit is contained in:
parent
2f0fd8d03e
commit
d47e68fe21
1 changed files with 12 additions and 8 deletions
|
@ -145,14 +145,18 @@ to the tracked files. Utracked files will not register."
|
|||
"List information about every repository."
|
||||
(for-each
|
||||
(lambda (repo)
|
||||
(chdir repo)
|
||||
(let ((numup (git-revs-to-push))
|
||||
(numdown (git-revs-to-pull))
|
||||
(clean? (git-clean?))
|
||||
(lastupdate (git-last-update)))
|
||||
(format #t
|
||||
"~a:~15t~d to push, ~d to pull and is ~adirty. Last update: ~a\n"
|
||||
(basename repo) numup numdown (if clean? "not " "") lastupdate)))
|
||||
(if (file-exists? repo)
|
||||
(begin
|
||||
(chdir repo)
|
||||
(let ((numup (git-revs-to-push))
|
||||
(numdown (git-revs-to-pull))
|
||||
(clean? (git-clean?))
|
||||
(lastupdate (git-last-update)))
|
||||
(format
|
||||
#t "~a:~15t~d to push, ~d to pull and is ~adirty. Last update: ~a\n"
|
||||
(basename repo) numup numdown (if clean? "not " "")
|
||||
lastupdate)))
|
||||
(format #t "~a:~15tnot found at ~s\n" (basename repo) repo)))
|
||||
repositories))
|
||||
|
||||
(define (list-repository-locations)
|
||||
|
|
Loading…
Reference in a new issue