Clojurians Log v2

My code:

["/tasks" {:get {:parameters {:query schemas/GetTasksRequest}
                 :coercion   schemas/GetTasksRequest ;; tried with and without this line
                  :handler    (fn [request]
                                  {:status 200
                                   :body   (:params request)})}}]

(defn- ->router [routes]
  (ring/router
    routes
    {:data     {:coercion   (reitit.coercion.malli/create
                              (-> reitit.coercion.malli/default-options
                                  (assoc-in [:transformers :string :default]
                                            transformer/custom-string-transformer)
                                  (merge {:error-keys   #{:humanized}
                                          :encode-error humanized-response})))
                :muuntaja   muun/instance
                :middleware [;; query-params & form-params
                             parameters/parameters-middleware
                             ;; content-negotiation
                             muuntaja/format-negotiate-middleware
                             ;; encoding response body
                             muuntaja/format-response-middleware
                             ;; exception handling
                             exception/exception-middleware
                             ;; decoding request body
                             muuntaja/format-request-middleware
                             ;; coercing response bodys
                             coercion/coerce-response-middleware
                             ;; coercing request parameters
                             coercion/coerce-request-middleware]}}))

in transformers ns:
(defn singleton->vector [x]
  (if (string? x)
    (if (vector? x) x [x])
    x))

(def custom-string-type-decoders
  (assoc (mt/-string-decoders) :vector singleton->vector))

(def custom-string-transformer ;; need this to allow vectors
  (mt/transformer
    (mt/strip-extra-keys-transformer)
    {:name     :string
     :decoders custom-string-type-decoders
     :encoders (mt/-string-encoders)}
    (mt/default-value-transformer {::mt/add-optional-keys true})))

in schemas ns:

(def GetTasksRequest
  (m/schema
    [:map
     [:parent_id {:default "root" :optional true} ParentId]
     [:page {:default 1 :optional true} pos-int?]
     [:tag_id {:optional true} TagIdVector]
     [:from_priority {:default 1 :optional true} Priority]
     [:to_priority {:default 10 :optional true} Priority]
     [:status {:default "Not Started" :optional true} [:vector StatusVector]]
     [:people {:optional true} UserIdVector]
     [:start_date {:default (LocalDate/now) :optional true} Date]
     [:end_date {:default (LocalDate/now) :optional true} Date]
     [:order_by {:default "desc" :optional true} OrderBy]
     [:order_key {:default "date" :optional true} OrderKey]]))

(let [tr transformer/custom-string-transformer]
  (m/decode
    schemas/GetTasksRequest
    {}
    tr))
=>
{:order_by "desc",
 :order_key "date",
 :page 1,
 :end_date #object[java.time.LocalDate 0x6d926cef "2024-05-10"],
 :start_date #object[java.time.LocalDate 0x7ed9b28d "2024-05-10"],
 :status [["Not Started"]],
 :parent_id "root",
 :to_priority 10,
 :from_priority 1}