henrietta-cache: Error: (ssl-get-char) syscall: library=<unknown>, function=<unknown>, reason=<unknown> pasted by mario-goulart on Sat Jan 4 13:15:26 2014

(use http-client utils)

(print
 (let ((f (with-input-from-request
           "https://raw.github.com/mario-goulart/selenium/master/selenium.release-info"
           #f
           read-file)))
   f))

;; If replace read-file by read-all, it works as expected
[ permalink | raw ]

Without using http-client (simplification) added by sjamaan on Sun Jan 5 17:25:42 2014

(use openssl utils)

(print (receive (in out) (ssl-connect "raw.github.com" 443)
         (display "GET /mario-goulart/selenium/master/selenium.release-info HTTP/1.1\r\n" out)
         (display "Host: raw.github.com\r\n" out)
         (display "\r\n" out)
         (close-output-port out)
         (let ((res (read-file in)))
           ;(peek-char in)
           (close-input-port in)
           res)))
[ permalink | raw ]