diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-24 18:53:11 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-24 18:53:11 +0200 |
commit | ec2d143ffd4bc1f81f1cd2caa06cffb3e52105a9 (patch) | |
tree | 47b3144c970a638b024b22a3ef7d8b0bb3be93f9 /module/web/uri-query.scm | |
parent | Split webdav documentation into multiple files. (diff) | |
download | calp-ec2d143ffd4bc1f81f1cd2caa06cffb3e52105a9.tar.gz calp-ec2d143ffd4bc1f81f1cd2caa06cffb3e52105a9.tar.xz |
Merge (web uri-query) into (web query).
Diffstat (limited to '')
-rw-r--r-- | module/web/uri-query.scm | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/module/web/uri-query.scm b/module/web/uri-query.scm deleted file mode 100644 index e7cc627c..00000000 --- a/module/web/uri-query.scm +++ /dev/null @@ -1,19 +0,0 @@ -(define-module (web uri-query) - :use-module ((web uri) :select (uri-encode)) - :export (encode-query-parameters) - ) - -;; TODO why this format for values? -;; TODO why aren't we encoding the keys? -;; TODO why isn't this in the same module as `parse-query'? -;; TODO why isn't this on the same format as `parse-query'? - -(define (encode-query-parameters parameters) - (string-join - (map (lambda (p) - (format #f "~a=~a" - (car p) - (uri-encode (with-output-to-string (lambda () (write (cdr p))))))) - parameters) - "&")) - |