Fix minor HTTPd omissions
parent
cf4dee6e0f
commit
85cfca5468
|
@ -12,6 +12,7 @@ GENERIC: call-responder ( path responder -- response )
|
||||||
: <content> ( content-type -- response )
|
: <content> ( content-type -- response )
|
||||||
<response>
|
<response>
|
||||||
200 >>code
|
200 >>code
|
||||||
|
"Document follows" >>message
|
||||||
swap set-content-type ;
|
swap set-content-type ;
|
||||||
|
|
||||||
TUPLE: trivial-responder response ;
|
TUPLE: trivial-responder response ;
|
||||||
|
|
|
@ -7,8 +7,6 @@ calendar.format new-slots accessors io.encodings.binary
|
||||||
combinators.cleave fry ;
|
combinators.cleave fry ;
|
||||||
IN: http.server.static
|
IN: http.server.static
|
||||||
|
|
||||||
SYMBOL: responder
|
|
||||||
|
|
||||||
! special maps mime types to quots with effect ( path -- )
|
! special maps mime types to quots with effect ( path -- )
|
||||||
TUPLE: file-responder root hook special ;
|
TUPLE: file-responder root hook special ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue