From 1b698b3d8f6b8f2f578d821b10eb7508e6e131c2 Mon Sep 17 00:00:00 2001 From: Stuart Mitchell Date: Tue, 14 Jun 2016 13:23:38 +1200 Subject: [PATCH] register-pure: added code to enable spec checking of the fn args --- src/re_frame/subs-2.cljs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/re_frame/subs-2.cljs b/src/re_frame/subs-2.cljs index 5c1e772..f853b62 100644 --- a/src/re_frame/subs-2.cljs +++ b/src/re_frame/subs-2.cljs @@ -35,9 +35,6 @@ (coll? data) (map deref data) :else @data)) -(s/fdef register-pure - :args ::args) - (defn register-pure "This fn allows the user to write a 'pure' subscription i.e. that is a subscription that operates on the values within app-db @@ -99,4 +96,9 @@ (subs/register ;; the simple case with no subs sub-name (fn [db q-vec d-vec] - (ratom/make-reaction (fn [] (f @db q-vec d-vec)))))))) \ No newline at end of file + (ratom/make-reaction (fn [] (f @db q-vec d-vec)))))))) + +#_(s/fdef register-pure + :args ::args) + +#_(s/instrument #'register-pure)