|
|
|
@ -10,10 +10,8 @@
|
|
|
|
|
(rh:append ":status" :200)
|
|
|
|
|
(rh:append :content-type :text/plain)
|
|
|
|
|
(out:write_headers rh false)
|
|
|
|
|
(print "got oune" handler)
|
|
|
|
|
(let [(obj pos err) (json.decode (out:get_body_as_string) 1 nil)
|
|
|
|
|
ret (handler obj)]
|
|
|
|
|
|
|
|
|
|
(out:write_chunk ret true))))
|
|
|
|
|
|
|
|
|
|
(fn new-server [handler]
|
|
|
|
|