Skip to content
Browse files

Extra defstat logging in pred-fn.

  • Loading branch information...
1 parent b06c2be commit 24e2b8f6eacae714ba55b1826b8a302d9b63cd10 @technomancy technomancy committed Oct 2, 2012
Showing with 2 additions and 0 deletions.
  1. +2 −0 src/pulse/def.clj
View
2 src/pulse/def.clj
@@ -255,6 +255,8 @@
(def ~scoped-var-name (assoc ~body-sym
:name ~(str (conf/graphite-prefix) scoped-name)
:pred-fn (fn [evt#]
+ (when (> (rand) 0.95)
+ (log :at "defstat/pred-fn" :cloud (:cloud evt#)))
(and (= (:cloud evt#) ~cloud)
((:pred-fn ~body-sym) evt#)))))
(swap! all conj ~scoped-var-name))))))

0 comments on commit 24e2b8f

Please sign in to comment.
Something went wrong with that request. Please try again.