1
0
Fork 0

fix post content-type check

* tekuti/request.scm (request-form-data): Fix content-type check.
This commit is contained in:
Andy Wingo 2010-11-22 23:50:48 +01:00
parent 473bd070ae
commit c2d3231e24

View file

@ -71,7 +71,7 @@
'() '()
(let ((content-type (request-content-type request))) (let ((content-type (request-content-type request)))
(cond (cond
((equal? content-type '("application" "x-www-form-urlencoded")) ((equal? content-type '("application/x-www-form-urlencoded"))
(parse-www-form-urlencoded body)) (parse-www-form-urlencoded body))
(else (else
(error "bad content-type" content-type)))))) (error "bad content-type" content-type))))))