hiro/lack
1
0
Fork 0
mirror of https://github.com/vale981/lack synced 2025-03-05 09:21:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Set body-parameters only when the parsed data is an alist.

Browse source
This commit is contained in:
Eitaro Fukamachi 2018-10-26 22:41:54 +09:00
parent 4bd5dca97a
commit 2a9fc540cf
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/request.lisp
View file

@ -102,8 +102,10 @@
;; POST parameters ;; POST parameters
(when (and (null body-parameters) (when (and (null body-parameters)
(request-has-body-p req)) (request-has-body-p req))
(setf body-parameters (let ((parsed (http-body:parse content-type content-length raw-body)))
(http-body:parse content-type content-length raw-body)) (when (and (consp parsed)
(every #'consp parsed))
(setf body-parameters parsed)))
(file-position raw-body 0) (file-position raw-body 0)
(setf (getf env :raw-body) raw-body) (setf (getf env :raw-body) raw-body)
(rplacd (last env) (list :body-parameters body-parameters))))) (rplacd (last env) (list :body-parameters body-parameters)))))