hash-lang-uwu
/
CS3700-project4
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

form-alist->http-body

This commit is contained in:
Milo Turner 2020-04-11 14:41:54 -04:00
parent 4475e50cc5
commit 8c4b525cbf
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
smol-http/http-msg.rkt
View File

@ -14,6 +14,7 @@
http-body? http-body?
empty-http-body empty-http-body
form-alist->http-body
write-http-body write-http-body
force-http-body force-http-body
in-http-body-chunks) in-http-body-chunks)
@ -21,6 +22,8 @@
(require racket/match (require racket/match
racket/port racket/port
racket/stream racket/stream
net/uri-codec
"./util.rkt") "./util.rkt")
(module+ test (module+ test
@ -154,6 +157,11 @@
(define empty-http-body #f) (define empty-http-body #f)
;; (form-alist->http-body al) -> http-body?
;; al : (listof (cons/c symbol? string?))
(define (form-alist->http-body al)
(string->bytes/utf-8 (alist->form-urlencoded al)))
;; (write-http-body bdy [port]) -> void? ;; (write-http-body bdy [port]) -> void?
;; bdy : http-body? ;; bdy : http-body?
;; port : output-port? ;; port : output-port?