From 70b5cbc0bb46894e0fb4481897b4dd9b6ffcad38 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 11 Jun 2022 23:46:27 +0200
Subject: Add number of TODO's.

---
 module/web/http/make-routes.scm | 1 +
 module/web/uri-query.scm        | 4 ++++
 static/clock.ts                 | 2 +-
 tests/run-tests.scm             | 2 ++
 4 files changed, 8 insertions(+), 1 deletion(-)

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
diff --git a/static/clock.ts b/static/clock.ts
index 3a5b0077..bbd15de0 100644
--- a/static/clock.ts
+++ b/static/clock.ts
@@ -99,7 +99,7 @@ class ClockElement extends HTMLElement {
         return ['timer_id']
     }
 
-    update(now: Date) { /* noop */ }
+    update(_: Date) { /* noop */ }
 }
 
 
diff --git a/tests/run-tests.scm b/tests/run-tests.scm
index 692bf00a..008090d0 100755
--- a/tests/run-tests.scm
+++ b/tests/run-tests.scm
@@ -51,6 +51,8 @@ fi
 (define (yellow s) (escaped 33 s))
 (define (bold s)   (escaped  1 s))
 
+;;; TODO handle nested grups in a better fassion
+
 (define (construct-test-runner)
   (define runner (test-runner-null))
   ;; end of individual test case
-- 
cgit v1.2.3