From 17b45eb020f3676ff7e0e0b2256846216dab78e8 Mon Sep 17 00:00:00 2001 From: Milo Turner Date: Fri, 10 Apr 2020 21:15:16 -0400 Subject: [PATCH] simplify --- smol-http/http-msg.rkt | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/smol-http/http-msg.rkt b/smol-http/http-msg.rkt index 02a90e4..afd4bca 100644 --- a/smol-http/http-msg.rkt +++ b/smol-http/http-msg.rkt @@ -245,14 +245,14 @@ [content-length . 5])) #"hello")) - (let* ([p (open-input-bytes (bytes-append #"HTTP/1.1 200 OK\r\n" - #"Transfer-Encoding: chunked\r\n" - #"\r\n" - #"5\r\nhello\r\n" - #"2\r\n, \r\n" - #"6\r\nworld!\r\n" - #"0\r\n\r\n"))] - [msg (read-http-msg p)]) + (let ([msg (read-http-msg + (open-input-bytes (bytes-append #"HTTP/1.1 200 OK\r\n" + #"Transfer-Encoding: chunked\r\n" + #"\r\n" + #"5\r\nhello\r\n" + #"2\r\n, \r\n" + #"6\r\nworld!\r\n" + #"0\r\n\r\n")))]) (check-equal? (for/list ([bs (in-http-body-chunks (http-msg-body msg))]) bs) '(#"hello" #", " #"world!")))