diff options
author | Christopher Baines <mail@cbaines.net> | 2020-04-10 18:09:43 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-05-18 09:44:00 +0200 |
commit | ac5df66f1cafd3f9dd1bcac30b807ae7f13474c2 (patch) | |
tree | eb0f8aea0aa5ec5c233cf562390e2b1a7ed887b5 | |
parent | 922c3bd55cc46ba21e5fd5120b482e8e5f114efa (diff) | |
download | guile-ac5df66f1cafd3f9dd1bcac30b807ae7f13474c2.tar.gz |
http: Support CONNECT and PATCH HTTP methods.
PATCH is described by RFC 5789 and CONNECT is described by RFC 7231.
* module/web/http.scm (parse-http-method): Support CONNECT and PATCH.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
-rw-r--r-- | module/web/http.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/web/http.scm b/module/web/http.scm index de61c9495..4276e1744 100644 --- a/module/web/http.scm +++ b/module/web/http.scm @@ -1108,6 +1108,8 @@ symbol, like ‘GET’." ((string= str "DELETE" start end) 'DELETE) ((string= str "OPTIONS" start end) 'OPTIONS) ((string= str "TRACE" start end) 'TRACE) + ((string= str "CONNECT" start end) 'CONNECT) + ((string= str "PATCH" start end) 'PATCH) (else (bad-request "Invalid method: ~a" (substring str start end))))) (define* (parse-request-uri str #:optional (start 0) (end (string-length str))) |