Apply parse recursively

2025-04-28 23:03:44 +09:00 · 2025-04-28 23:03:44 +09:00 · 13651cbe1c
commit 13651cbe1c
parent bb9e5fb6cd
1 changed files with 4 additions and 1 deletions
--- a/src/client.lisp
+++ b/src/client.lisp
@ -62,7 +62,10 @@

 (defun %camel-case-hash-table->kebab-case-plist (hash-table)
  (loop :for (key . val) :in (hash-table-alist hash-table)
-        :append (list (make-keyword (string-upcase (to-kebab-case key))) val)))
+        :append (list (make-keyword (string-upcase (to-kebab-case key)))
+                      (if (typep val 'hash-table)
+                          (%camel-case-hash-table->kebab-case-plist val)
+                          val))))

 (defun %build-query (query)
  (%kebab-case-plist->camel-case-alist query))