simplest ever SSE streaming written in crystal

glow

# glow.cr
# simplest ever SSE streaming
# you can test it with the following bash command
# curl http://127.0.0.1:8888
#

require "http/server"

server = HTTP::Server.new do |context|
  context.response.content_type = "text/event-stream"
  10.times do |i_times|
  context.response.print "retry: 1000
event: message
id: #{i_times}
data: Hello word no #{i_times + 1} !

"
  context.response.flush
  sleep 1
 end
end

p Time.now
address = server.bind_tcp 8888
puts "Listening on http://#{address}"
server.listen