class Async::HTTP::Protocol::HTTP1::Server

def each(task: Task.current)
	while request = next_request
		response = yield(request, self)
		
		return if @stream.closed?
		
		if response
			write_response(@version, response.status, response.headers, response.body, request.head?)
		else
			# If the request failed to generate a response, it was an internal server error:
			write_response(@version, 500, {}, nil)
		end
		
		# Gracefully finish reading the request body if it was not already done so.
		request.finish
		
		# This ensures we yield at least once every iteration of the loop and allow other fibers to execute.
		task.yield
	end
end

def fail_request(status)
	@persistent = false
	write_response(@version, status, {}, nil)
end

def next_request
	# The default is true.
	return nil unless @persistent
	
	request = Request.new(self)
	
	unless persistent?(request.version, request.headers)
		@persistent = false
	end
	
	return request
rescue Async::TimeoutError
	fail_request(408)
	raise
rescue
	fail_request(400)
	raise
end