wisp

get interweb fluff
Log | Files | Refs

commit 136794678e8bbe0117df97465bd6b314626ab359
parent 444483355aca32d6ca4491224f14d3af553fcd0e
Author: rsiddharth <s@ricketyspace.net>
Date:   Tue, 18 Jun 2019 19:34:54 -0400

hn/g: Update fp.

hn/g (fp): Re-align some lines.

Diffstat:
hn/g | 6++----
1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/hn/g b/hn/g @@ -22,11 +22,9 @@ (define (fp) "Fetch HN Front Page." - (let ((hc (http-conn-open HOST - #:ssl? (ssl-make-client-context 'secure) + (let ((hc (http-conn-open HOST #:ssl? (ssl-make-client-context 'secure) #:port 443))) - (define-values (status headers port) - (http-conn-sendrecv! hc "/")) + (define-values (status headers port) (http-conn-sendrecv! hc "/")) (port->string port))) (define (athings)