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

Use better regexp for string->url input contract.

Browse Source 
Closes #929
This commit is contained in:
Stephen Chang 2016-02-10 12:54:03 -05:00
parent 5ffe007f5c
commit e6a0caa147
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/collects/net/url-string.rkt
View File

@ -399,10 +399,8 @@
(provide (struct-out url) (struct-out path/param)) (provide (struct-out url) (struct-out path/param))
(provide/contract (provide/contract
(string->url (-> (and/c string? (url-regexp regexp?)
(or/c #rx"^[a-zA-Z][a-zA-Z0-9+.-]*:" (string->url (-> (and/c string? url-regexp) url?))
(not/c #rx"^[^:/?#]*:")))
url?))
(path->url ((or/c path-string? path-for-some-system?) . -> . url?)) (path->url ((or/c path-string? path-for-some-system?) . -> . url?))
(relative-path->relative-url-string ((and/c (or/c path-string? path-for-some-system?) (relative-path->relative-url-string ((and/c (or/c path-string? path-for-some-system?)
relative-path?) relative-path?)