diff options
Diffstat (limited to 'module/web/uri-query.scm')
-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) - "&")) - |