Make it compatible to the latest HTTP-Body.

This commit is contained in:
Eitaro Fukamachi 2015-03-12 21:29:58 +09:00
parent 481ca86e30
commit c4a5637f6b

View file

@ -78,11 +78,11 @@
(quri:url-decode-params query-string :lenient t))))
;; POST parameters
(with-slots (body-parameters raw-body content-type) req
(with-slots (body-parameters raw-body content-length content-type) req
(when (and (null body-parameters)
raw-body)
(setf body-parameters
(http-body:parse content-type raw-body))))
(http-body:parse content-type content-length raw-body))))
req))