diff options
Diffstat (limited to '')
-rw-r--r-- | module/web/http/make-routes.scm | 1 | ||||
-rw-r--r-- | module/web/uri-query.scm | 4 |
2 files changed, 5 insertions, 0 deletions
diff --git a/module/web/http/make-routes.scm b/module/web/http/make-routes.scm index 11f7dfb4..105bba50 100644 --- a/module/web/http/make-routes.scm +++ b/module/web/http/make-routes.scm @@ -102,6 +102,7 @@ (append ((@ (web query) parse-query) r:query) + ;; TODO what's happening here? (let ((content-type (assoc-ref r:headers 'content-type))) ((@ (hnh util) when) content-type (let ((type (car content-type)) diff --git a/module/web/uri-query.scm b/module/web/uri-query.scm index 40d89b11..56f3aef9 100644 --- a/module/web/uri-query.scm +++ b/module/web/uri-query.scm @@ -3,6 +3,10 @@ :use-module ((web uri) :select (uri-encode)) ) +;; 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-public (encode-query-parameters parameters) (string-join |