diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-31 00:40:39 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-31 00:40:39 +0200 |
| commit | 51a2c21f57b3ff3fce3ab7c3c2a9e4985f45258a (patch) | |
| tree | 1de39df99024c577c5ae42039b4a4b05fd301f41 /module/server | |
| parent | Change html-generate to take everything as kv-args. (diff) | |
| download | calp-51a2c21f57b3ff3fce3ab7c3c2a9e4985f45258a.tar.gz calp-51a2c21f57b3ff3fce3ab7c3c2a9e4985f45258a.tar.xz | |
Change url-parsing so '.' is a delimiter.
Diffstat (limited to 'module/server')
| -rw-r--r-- | module/server/macro.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/server/macro.scm b/module/server/macro.scm index 123fc468..e325401a 100644 --- a/module/server/macro.scm +++ b/module/server/macro.scm @@ -10,7 +10,7 @@ (define-public (parse-endpoint-string str) - (let ((rx (make-regexp ":([^/]+)"))) + (let ((rx (make-regexp ":([^/.]+)"))) (let loop ((str str) (string "") (tokens '())) @@ -18,7 +18,7 @@ (if (not m) (values (string-append string str) (reverse tokens)) (loop (match:suffix m) - (string-append string (match:prefix m) "([^/]+)") + (string-append string (match:prefix m) "([^/.]+)") (cons (string->symbol (match:substring m 1)) tokens))))))) |