diff options
| author | W. Kosior <koszko@koszko.org> | 2024-07-27 23:10:30 +0200 |
|---|---|---|
| committer | W. Kosior <koszko@koszko.org> | 2024-07-28 21:20:06 +0200 |
| commit | 3768df458d257fe5af3533e46098aee3b743e0a7 (patch) | |
| tree | 0e151919fe712f0e5e916313da427e6f27c41c04 | |
| parent | 1f5b6185b628a5582b6873ef4668111aad220b02 (diff) | |
| download | cantius-3768df458d257fe5af3533e46098aee3b743e0a7.tar.gz cantius-3768df458d257fe5af3533e46098aee3b743e0a7.zip | |
Use a redirect type that doesn't change method.
| -rw-r--r-- | src/guile/cantius.scm | 1 | ||||
| -rw-r--r-- | tests/guile/cantius-test.scm | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/src/guile/cantius.scm b/src/guile/cantius.scm index 8afb276..726b371 100644 --- a/src/guile/cantius.scm +++ b/src/guile/cantius.scm @@ -608,6 +608,7 @@ (and (%redirect/remove-query?) (uri:uri-query uri))) (values (build-response* #:headers *%default-headers + #:code 307 #:redirect-to (uri:build-relative-ref #:path (redirect-path) #:query (redirect-query))) diff --git a/tests/guile/cantius-test.scm b/tests/guile/cantius-test.scm index c00977c..f2d2118 100644 --- a/tests/guile/cantius-test.scm +++ b/tests/guile/cantius-test.scm @@ -260,7 +260,7 @@ value (define ms-redirect-result (get path)) - (tu:test-eqv 301 (rsp:response-code (car ms-redirect-result))) + (tu:test-eqv 307 (rsp:response-code (car ms-redirect-result))) (tu:test-equal "/cool-companies/ms/about" (uri:uri-path |