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

Allow a middleware object in builder.

Browse source
This commit is contained in:
Eitaro Fukamachi 2015-03-26 07:20:00 +09:00
parent ffaaebf0bc
commit f7cc256fa1
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/builder.lisp
View file

@ -26,7 +26,7 @@
;; for old Clack middlewares
(symbol (if (clack-middleware-symbol-p mw)
`(lambda (,app)
(funcall (intern (string :wrap) :clack)
(funcall (intern (string :wrap) :clack.middleware)
(make-instance ',mw)
,app))
mw))
@ -39,7 +39,7 @@
;; for old Clack middlewares
(if (clack-middleware-symbol-p (car mw))
`(lambda (,app)
(funcall (intern (string :wrap) :clack)
(funcall (intern (string :wrap) :clack.middleware)
(make-instance ',(car mw) ,@(cdr mw))
,app))
;; Normal form
@ -53,6 +53,9 @@
(lambda (,app)
(apply ,res-mw ,app (cdr ,res))))
,res))
(standard-object
(lambda (,app)
(funcall (intern (string :wrap) :clack.middleware) ,res ,app)))
(otherwise ,res))))))
(otherwise mw))))))