small bug

This commit is contained in:
Yann Esposito 2015-02-17 14:21:44 +01:00
parent 50ef090bba
commit 596b42a124

View file

@ -66,7 +66,7 @@
(when (number? v)
(let [lvl-fn (get @level-by-key k)
level (if lvl-fn (lvl-fn v) "ok")]
{:service (str @riemann-service " " (name k) (subs (str k) 1))
{:service (str @riemann-service " " (name k))
:state level
:metric v})))