diff options
| author | Miguel Ángel Moreno <mail@migalmoreno.com> | 2024-04-13 17:49:59 +0200 |
|---|---|---|
| committer | Miguel Ángel Moreno <mail@migalmoreno.com> | 2024-04-13 17:49:59 +0200 |
| commit | f7a60475422056138a003ee747b7298322a3d6c4 (patch) | |
| tree | 3bfa9238db1e925bf10637e69835ca8fadace17d | |
| parent | ddb3dd3c5cccd1f7718ad6f4424e419f11d69e1f (diff) | |
feat: allow using a string reverse host for redirector
| -rw-r--r-- | router.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/router.lisp b/router.lisp index 0450594..7a0dcc2 100644 --- a/router.lisp +++ b/router.lisp @@ -305,7 +305,9 @@ redirect. If REVERSED, reverse the redirection." (t (build-uri (if reversed - reverse + (typecase reverse + (string (quri:make-uri :host reverse)) + (quri:uri reverse)) (typecase redirect (string (quri:make-uri :host redirect)) (quri:uri redirect) |