suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-checkout display repo on error

Browse Source
This commit is contained in:
Jay McCarthy 2020-08-03 10:29:59 -04:00
parent 77fd6936b1
commit 09ff1344e8
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/collects/net/git-checkout.rkt
View File

@ -91,7 +91,7 @@
;; Find the commits needed for `ref`: ;; Find the commits needed for `ref`:
(define-values (ref-commit ; #f or an ID string (define-values (ref-commit ; #f or an ID string
want-commits) ; list of ID string want-commits) ; list of ID string
(select-commits ref refs status try-only-master?)) (select-commits ref refs status try-only-master? repo))
(unless dest-dir (unless dest-dir
(write-pkt o) ; clean termination (write-pkt o) ; clean termination
@ -356,7 +356,7 @@
;; initial response. If we can, the list of requested IDs will be ;; initial response. If we can, the list of requested IDs will be
;; just that one. Otherwise, we'll have to return a list of all ;; just that one. Otherwise, we'll have to return a list of all
;; IDs, and then we'll look for the reference later. ;; IDs, and then we'll look for the reference later.
(define (select-commits ref refs status try-only-master?) (define (select-commits ref refs status try-only-master? repo)
(define ref-looks-like-id? (regexp-match? #rx"^[0-9a-f]+$" ref)) (define ref-looks-like-id? (regexp-match? #rx"^[0-9a-f]+$" ref))
(define ref-rx (byte-regexp (bytes-append (define ref-rx (byte-regexp (bytes-append
@ -385,14 +385,14 @@
[try-only-master? [try-only-master?
(status "Requested reference looks like commit id; try within master") (status "Requested reference looks like commit id; try within master")
(define-values (master-ref-commit want-commits) (define-values (master-ref-commit want-commits)
(select-commits "master" refs status #f)) (select-commits "master" refs status #f repo))
want-commits] want-commits]
[else [else
(status "Requested reference looks like commit id; getting all commits") (status "Requested reference looks like commit id; getting all commits")
(for/list ([ref (in-list refs)]) (for/list ([ref (in-list refs)])
(cadr ref))])] (cadr ref))])]
[else [else
(raise-git-error 'git "could not find requested reference\n reference: ~a" ref)])) (raise-git-error 'git "could not find requested reference\n reference: ~a\n repo: ~a" ref repo)]))
(values ref-commit want-commits)) (values ref-commit want-commits))