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

Protect against invalid package sources

Browse Source
This commit is contained in:
Jay McCarthy 2013-05-22 21:09:45 -06:00
parent a8111ce91b
commit 16e4f707e9
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/meta/pkg-index/official/main.rkt
View File

@ -160,12 +160,14 @@
(string->url pkg-url-str)) (string->url pkg-url-str))
(match (url-scheme pkg-url) (match (url-scheme pkg-url)
["github" ["github"
(match-define (list* user repo branch path) (match (url-path pkg-url)
(url-path pkg-url)) [(list* user repo branch path)
(url->string (url->string
(struct-copy url pkg-url (struct-copy url pkg-url
[scheme "http"] [scheme "http"]
[path (list* user repo (path/param "tree" empty) branch path)]))] [path (list* user repo (path/param "tree" empty) branch path)]))]
[_
pkg-url-str])]
[_ [_
pkg-url-str])) pkg-url-str]))