Remove typed versions of the cgi exceptions.
This commit is contained in:
parent
9d239170cf
commit
f3a21c6aba
|
@ -2,12 +2,6 @@
|
||||||
|
|
||||||
(require typed/private/utils)
|
(require typed/private/utils)
|
||||||
|
|
||||||
(require-typed-struct cgi-error () #:extra-constructor-name make-cgi-error net/cgi)
|
|
||||||
|
|
||||||
(require-typed-struct (incomplete-%-suffix cgi-error) ([chars : (Listof Char)]) #:extra-constructor-name make-incomplete-%-suffix net/cgi)
|
|
||||||
(require-typed-struct (invalid-%-suffix cgi-error) ([char : Char]) #:extra-constructor-name make-invalid-%-suffix net/cgi)
|
|
||||||
|
|
||||||
|
|
||||||
(require/typed/provide net/cgi
|
(require/typed/provide net/cgi
|
||||||
[get-bindings (-> (Listof (cons (U Symbol String) String)))]
|
[get-bindings (-> (Listof (cons (U Symbol String) String)))]
|
||||||
[get-bindings/post (-> (Listof (Pair (U Symbol String) String)))]
|
[get-bindings/post (-> (Listof (Pair (U Symbol String) String)))]
|
||||||
|
@ -22,9 +16,3 @@
|
||||||
[get-cgi-method (-> (U "GET" "POST"))]
|
[get-cgi-method (-> (U "GET" "POST"))]
|
||||||
[string->html (String -> String)]
|
[string->html (String -> String)]
|
||||||
[generate-link-text (String String -> String)])
|
[generate-link-text (String String -> String)])
|
||||||
|
|
||||||
|
|
||||||
(provide
|
|
||||||
(struct-out cgi-error)
|
|
||||||
(struct-out incomplete-%-suffix)
|
|
||||||
(struct-out invalid-%-suffix))
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user