diff options
| author | Wojtek Kosior <koszko@koszko.org> | 2024-01-26 11:36:21 +0100 |
|---|---|---|
| committer | Wojtek Kosior <koszko@koszko.org> | 2024-01-26 11:36:21 +0100 |
| commit | 67811d35e09a6a638c6a8e92b6824beb5a631838 (patch) | |
| tree | ee8ac5fdb75c25bda9d3a97849fcd587ed5da52b /src/guile | |
| parent | 9b39286cda39e66bab3c097937da9be243585f3c (diff) | |
| download | cantius-67811d35e09a6a638c6a8e92b6824beb5a631838.tar.gz cantius-67811d35e09a6a638c6a8e92b6824beb5a631838.zip | |
Rename `normalized-path-string` nested function.
This is to decrease the chance of confusion with new, unrelated
`normalize-path`.
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/cantius.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/guile/cantius.scm b/src/guile/cantius.scm index 247807b..247d593 100644 --- a/src/guile/cantius.scm +++ b/src/guile/cantius.scm @@ -389,12 +389,12 @@ (path (uri:split-and-decode-uri-path path-string)) (($* endpoint-ref-result path-tail endpoint parameters) (query-endset root-endset path (%catchall-ref-result)))) - (define (normalized-path-string) + (define (normalized-uri-path-string) (format #f "/~a" (uri:encode-and-join-uri-path path))) (define (redirect-path) (if (%redirect/normalize-path?) - (normalized-path-string) + (normalized-uri-path-string) (uri:uri-path (request-uri request)))) (define (redirect-query) |