|
|
|
@ -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] |
|
|
|
|