From 8c4b525cbffa8ec196233bacabf792c1e085aa8f Mon Sep 17 00:00:00 2001
From: Milo Turner <iitalics@gmail.com>
Date: Sat, 11 Apr 2020 14:41:54 -0400
Subject: [PATCH] form-alist->http-body

---
 smol-http/http-msg.rkt | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/smol-http/http-msg.rkt b/smol-http/http-msg.rkt
index 4a8ef5e..f0b23e1 100644
--- a/smol-http/http-msg.rkt
+++ b/smol-http/http-msg.rkt
@@ -14,6 +14,7 @@
 
          http-body?
          empty-http-body
+         form-alist->http-body
          write-http-body
          force-http-body
          in-http-body-chunks)
@@ -21,6 +22,8 @@
 (require racket/match
          racket/port
          racket/stream
+         net/uri-codec
+
          "./util.rkt")
 
 (module+ test
@@ -154,6 +157,11 @@
 
 (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?
 ;; bdy : http-body?
 ;; port : output-port?