diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-11 23:46:27 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-11 23:54:46 +0200 |
| commit | 70b5cbc0bb46894e0fb4481897b4dd9b6ffcad38 (patch) | |
| tree | c26f5719c555c8818e312fcaa8005adeadd1f7e3 /module/web | |
| parent | Update today-button to not depend on initial content. (diff) | |
| download | calp-70b5cbc0bb46894e0fb4481897b4dd9b6ffcad38.tar.gz calp-70b5cbc0bb46894e0fb4481897b4dd9b6ffcad38.tar.xz | |
Add number of TODO's.
Diffstat (limited to 'module/web')
| -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 |