Chicken/awful-sse
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Updated comments.

Browse source
This commit is contained in:
arthurmaciel 2014-08-10 01:17:10 -03:00
parent b8cab6e3b5
commit f20b212942
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
awful-sse.scm
View file

@ -37,9 +37,9 @@
(lambda (#!optional given-path) (lambda (#!optional given-path)
(let ((accept (header-values 'accept (let ((accept (header-values 'accept
(request-headers (current-request))))) (request-headers (current-request)))))
;; If client 'EventSource' JS code requested SSE page... ;; If client's EventSource (JS code) requested SSE page...
(if (memq 'text/event-stream accept) (if (memq 'text/event-stream accept)
;; ...complete handshake and keep connection alive with 'sse-proc'. ;;...complete handshake & keep connection alive with 'sse-proc'.
(lambda () (lambda ()
(with-headers '((content-type text/event-stream) (with-headers '((content-type text/event-stream)
(cache-control no-cache) (cache-control no-cache)