Use better regexp for string->url input contract.

Closes #929
2016-02-10 12:54:03 -05:00 · 2016-02-10 12:54:03 -05:00 · e6a0caa147
commit e6a0caa147
parent 5ffe007f5c
1 changed files with 2 additions and 4 deletions
--- a/racket/collects/net/url-string.rkt
+++ b/racket/collects/net/url-string.rkt
@ -399,10 +399,8 @@
 (provide (struct-out url) (struct-out path/param))

 (provide/contract
- (string->url (-> (and/c string?
-                         (or/c #rx"^[a-zA-Z][a-zA-Z0-9+.-]*:"
-                               (not/c #rx"^[^:/?#]*:")))
-                  url?))
+ (url-regexp regexp?)
+ (string->url (-> (and/c string? url-regexp) 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?)