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

raco pkg: better error message for bad Git URL

Browse Source
This commit is contained in:
Matthew Flatt 2015-05-16 16:26:55 -06:00
parent 9272781d6d
commit 07b8007edb
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/pkg/private/stage.rkt
View File

@ -710,6 +710,11 @@
(define (strip-ending-newline s) (define (strip-ending-newline s)
(regexp-replace #rx"\n$" s "")) (regexp-replace #rx"\n$" s ""))
(log-pkg-debug (strip-ending-newline (apply format fmt args)))) (log-pkg-debug (strip-ending-newline (apply format fmt args))))
#:initial-error (lambda ()
(pkg-error (~a "Git checkout initial protocol failed;\n"
" the given URL might not refer to a Git repository\n"
" given URL: ~a")
pkg-url-str))
#:transport (string->symbol (url-scheme pkg-url)))] #:transport (string->symbol (url-scheme pkg-url)))]
[(github) [(github)
(match-define (list* user repo branch path) (match-define (list* user repo branch path)