CODEWITHSUNDEEP
clojureclojure.spec
nha
nha

Reputation: 18005

Clojure spec coerce nested map value

I coerce a map value like so:

(require '[clojure.spec :as s])

(defn x-integer? [x]
  (cond
    (integer? x) x
    (string? x) (try
                  (Integer/parseInt x)
                  (catch Exception e
                    :clojure.spec/invalid))
    :else :clojure.spec/invalid))

(s/def ::port (s/conformer x-integer?))

(s/def ::config (s/keys :req [::port]))

(s/conform ::config {::port "12345"}) ;;=> #:my.ns{:port "12345"}

However I do not see how I could do the same with the following map instead :

(s/conform ::config {::nested-data {:port "12345"}}) ;;=> something like that maybe ? #:my.ns/nested-data{:port 12345}

How should ::config be defined ? Also, would it be preferable to have {::nested-data {::port "12345"}} instead ?

Upvotes: 6

Views: 1465

Answers (1)

Alex Miller
Alex Miller

Reputation: 70201

(s/def ::port (s/conformer x-integer?))
(s/def ::nested-data (s/keys :req-un [::port]))
(s/def ::config (s/keys :req [::nested-data]))
(s/conform ::config {::nested-data {:port "12345"}})
;;=> #:spec.examples.guide{:nested-data {:port 12345}}

Upvotes: 11

Related Questions