spec coercion to int #446

(s/def ::version (s/and int? #{1 2}))

(GET "/test/:v" request
      :path-params [v :- ::version]
      (r/ok v))

{:problems
    [{:message "Validation error",
      :details
      {:path ["v"],
       :pred [1 2],
       :val "1",
       :via ["spec$60151/v"],
       :in ["v"],
       :phrase.alpha/mappings {:x0 1, :x1 2, :x2 ["x1" "x0"]},
       :phrase.alpha/via []}}]}

(s/def ::version #{1 2})

(GET "/test/:v" request
      :path-params [v :- (s/and int? ::version)]
      (r/ok v))