diff options
Diffstat (limited to 'hn')
-rwxr-xr-x | hn | 14 |
1 files changed, 14 insertions, 0 deletions
@@ -7,3 +7,17 @@ #lang racket/base +(require net/http-client) +(require racket/port) +(require openssl) + +(define HOST "news.ycombinator.com") + +(define (fp) + "Fetch HN Front Page." + (let ((hc (http-conn-open HOST + #:ssl? (ssl-make-client-context 'secure) + #:port 443))) + (define-values (status headers port) + (http-conn-sendrecv! hc "/")) + (port->string port))) |