spec-example.clj

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

(s/def ::id string?)
(s/def ::link uri?)

(s/def ::tag (s/and string?
                    (complement empty?)))

(s/def ::tags (s/coll-of ::tag
                         :distinct true))

(s/def ::link-data (s/keys :req-un [::id ::link ::tags]))

(def a-tag {:id "asdasd"
            :link "http://dsfdfdsfs.com"
            :tags ["asd" "sadas"]})


(let [parsed (s/conform ::link-data a-tag)]
  (if (= parsed ::s/invalid)
    (throw (ex-info "Invalid input"
                    {:reason (expound/expound-str ::link-data a-tag)}))
    (println (db/query {:select :id
                        :from :users}))))