fey.naomi/bus.fey.ink
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat: write headers correctly

Browse Source
This commit is contained in:
Fey Naomi Schrewe 2026-01-18 23:33:02 +01:00
parent 264b39d926
commit ba44e73ab8
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/serve.fnl
View File

@ -1,4 +1,5 @@
(local {:listen new-server} (require :http.server)) (local {:listen new-server} (require :http.server))
(local {:new new-headers} (require :http.headers))
(local {: dofile} (require :fennel)) (local {: dofile} (require :fennel))
(local {: info} (require :log)) (local {: info} (require :log))
@ -7,8 +8,12 @@
(fn on-stream [_server stream] (fn on-stream [_server stream]
(stream:get_headers) (stream:get_headers)
(info "received request") (info "received request")
(stream:write_headers {:status 200}) (stream:write_headers (doto (new-headers)
(stream:write_body_from_string :hi)) (: :append ::status :200)
(: :append :content-type :application/json))
false)
(stream:write_chunk "{}" true))
(local server (local server
(assert (new-server (assert (new-server
{:onstream on-stream {:onstream on-stream