From 73a8829e1c5dd6ee3e9d33f7231e4ffd4a563b80 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 20 Jan 2016 19:24:08 +0200
Subject: [PATCH] Add more validators to schema.

---
 src/uxbox/schema.cljs | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/uxbox/schema.cljs b/src/uxbox/schema.cljs
index ee08816c8d..7329d09cb1 100644
--- a/src/uxbox/schema.cljs
+++ b/src/uxbox/schema.cljs
@@ -41,7 +41,15 @@
   [v]
   (vector? v))
 
+
+(v/defvalidator function
+  "Validats if `v` is function."
+  {:default-message-format "%s must be a function."}
+  [v]
+  (fn? v))
+
 (def required v/required)
+(def number v/number)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Public Api