Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;; for the use case where same key is transformed through stage
- (s/def :st1/a int?)
- (s/def :st2/a string?)
- (defn validate-map [stage m]
- (every? (fn [[k v]] (s/valid? (keyword stage (name k)) v)) m))
- (validate-map "st1" {:a 100}) ;; true
- (validate-map "st2" {:a "abc"}) ;; true
- (validate-map "st1" {:a "abc"}) ;; false
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement