Remove typed versions of the cgi exceptions.

This commit is contained in:
Eli Barzilay 2012-03-16 03:45:35 -04:00
parent 9d239170cf
commit f3a21c6aba

View File

@ -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))