diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-01-10 22:22:56 -0800 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2011-01-10 22:44:41 -0800 |
| commit | f944ee8f23f03f2ec62ed8b421281ef9b451f4b2 (patch) | |
| tree | 0b1d7dc3a4643ef4a26df85ed51b355a8b1b9f07 /module/web/request.scm | |
| parent | 3475fbb5722fb53a413a89db231ed543cc27c05d (diff) | |
| download | guile-f944ee8f23f03f2ec62ed8b421281ef9b451f4b2.tar.gz | |
request and response cleanups
* module/web/request.scm (build-request): Make URI a positional
argument.
* module/web/response.scm: Remove extend-response.
(read-response): Fix a docstring.
* module/web/server.scm (extend-response): Include extend-response here,
but not exported.
Diffstat (limited to 'module/web/request.scm')
| -rw-r--r-- | module/web/request.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/web/request.scm b/module/web/request.scm index aa807d92a..91cc59da4 100644 --- a/module/web/request.scm +++ b/module/web/request.scm @@ -146,7 +146,7 @@ (if (not (null? headers)) (bad-request "Headers not a list: ~a" headers)))) -(define* (build-request #:key (method 'GET) uri (version '(1 . 1)) +(define* (build-request uri #:key (method 'GET) (version '(1 . 1)) (headers '()) port (meta '()) (validate-headers? #t)) "Construct an HTTP request object. If @var{validate-headers?} is true, |