This commit is contained in:
Yann Esposito 2015-02-17 15:21:02 +01:00
parent 92a6a41d5b
commit 86593f5b39

View file

@ -15,7 +15,7 @@
;; Atoms ;; Atoms
(def pool (atom nil)) ;; pool for async (def pool (atom nil)) ;; pool for async
(def default-map (atom #{})) (def default-map (atom #{}))
(def riemann-default (atom nil)) (def riemann-conf (atom nil))
(def riemann-conn (atom nil)) (def riemann-conn (atom nil))
(def riemann-service (atom "supercell")) (def riemann-service (atom "supercell"))
(def level-by-key (atom nil)) (def level-by-key (atom nil))
@ -76,7 +76,7 @@
metric-data (into metric-data (into
{:service @riemann-service {:service @riemann-service
:state "ok"} :state "ok"}
@riemann-default) @riemann-conf)
events (remove nil? (map to-riemann-event result-map)) events (remove nil? (map to-riemann-event result-map))
] ]
(when @riemann-conn (when @riemann-conn