Commit c64b2f41 authored by Bas Lijnse's avatar Bas Lijnse
Browse files

Changed the debug info of the http server to keep the connection open while printing debug info

parent e8aa4cc2
...@@ -78,12 +78,14 @@ loop options handlers listener rchannels schannels requests world ...@@ -78,12 +78,14 @@ loop options handlers listener rchannels schannels requests world
# world = debug response options world # world = debug response options world
// Encode the response to the HTTP protocol format // Encode the response to the HTTP protocol format
# (reply, world) = http_encodeResponse response True world # (reply, world) = http_encodeResponse response True world
# world = debug "Sending encoded reply:" options world
# world = debug reply options world
// Send the encoded response to the client // Send the encoded response to the client
# (currentschannel,world) = send (toByteSeq reply) currentschannel world # (currentschannel,world) = send (toByteSeq reply) currentschannel world
# world = debug "Sent encoded reply:" options world
# world = debug reply options world
// Close the connection
# world = closeChannel currentschannel world # world = closeChannel currentschannel world
# world = closeRChannel currentrchannel world # world = closeRChannel currentrchannel world
# world = debug "Closed connection" options world
= loop options handlers listener rchannels schannels requests world = loop options handlers listener rchannels schannels requests world
//We do not have everything we need yet, so continue //We do not have everything we need yet, so continue
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment