Inspectable interceptors

[ikitommi]

test how to inspect interceptor chain:

;; tune the chain so that we get data tap>'ed
((requiring-resolve 'malli.dev/-capture-interceptor))

;; add a tap
(add-tap (fn [x] (clojure.pprint/pprint (update x :schema m/type))))

run an interceptor chain:

(def Address
  [:map
   [:id string?]
   [:tags [:set keyword?]]
   [:address
    [:map
     [:street string?]
     [:city string?]
     [:zip int?]]]])

(m/decode
 Address
 {:id "Lillan",
  :tags ["coffee" "artesan" "garden"],
  :address {:street "Ahlmanintie 29"
            :city "Tampere"
            :zip 33100}}
 (mt/json-transformer))
;{:id "Lillan"
; :tags #{:coffee :artesan :garden}
; :address {:street "Ahlmanintie 29"
;           :city "Tampere"
;           :zip 33100}}

... and see steps tapped:

{:schema :set,
 :name :json,
 :phase :enter,
 :input ["coffee" "artesan" "garden"],
 :output #{"coffee" "garden" "artesan"}}

{:schema keyword?,
 :name :json,
 :phase :enter,
 :input "coffee",
 :output :coffee}

{:schema keyword?,
 :name :json,
 :phase :enter,
 :input "garden",
 :output :garden}

{:schema keyword?,
 :name :json,
 :phase :enter,
 :input "artesan",
 :output :artesan}

{:schema int?
 :name :json
 :phase :enter
 :input 33100
 :output 33100}