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

split-git-url returns six values now

Browse Source
This commit is contained in:
Tony Garnock-Jones 2015-09-23 22:08:55 -04:00
parent be6987c1eb
commit b84f1bc054
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/package-catalog/source.rkt
View File

@ -34,13 +34,13 @@
(define-values (_name type) (package-source->name+type str #f))
(cond
[(memq type '(git github))
(define-values (host port repo branch path)
(define-values (_type host port repo branch path)
(if (equal? "github" (url-scheme u))
(match (split-github-url u)
[(list* user repo branch path)
(values "github.com" #f (string-append user "/" repo) branch path)]
(values 'github "github.com" #f (string-append user "/" repo) branch path)]
[(list user repo)
(values "github.com" #f (string-append user "/" repo) "master" '())]
(values 'github "github.com" #f (string-append user "/" repo) "master" '())]
[_ (error 'string->package-source "Invalid github url: ~v" str)])
(split-git-url u)))
;; TODO: clean this up in repo-path.rkt