Sreenath Nannatt tacticiankerala
ikitommi
/ validator.clj
Last active
February 16, 2016 05:07
Dummy implementation of Schema Map validator (to get more humane errors)
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (require '[schema.core :as s]) | |
| (require '[schema.utils :as su]) | |
| (defn check-map [schema value] | |
| {:pre [(map? value)]} | |
| (if-let [value (s/check schema value)] | |
| (into {} | |
| (for [[k v] value] | |
| [k (cond | |
| (symbol? v) (keyword v) |