tag doesnt work

graphite

; (5556)
(let [host "0.0.0.0"]
  (tcp-server :host host)
  (udp-server :host host)
  (ws-server  :host host)
  (graphite-server :host host))



(streams
  ( where (service =~ "%servers%")
     ( tag "graphite" )
  )

  (tagged-all "graphite" prn )
  (let [client (tcp-client :host "192.168.19.1")]
      (by [:host :service]
         (forward client))))

(defn graphite-path-sarguru [event]
(let [service (:service event)
        host (:host event)
        split-service (if service (split service #" ") [])
        split-host (if host (split host #"\.") [])]
     (string/join "." ( split-service)))
 )


(def graph (graphite {:host "10.128.35.105" :path "graphite-path-sarguru"}))

(defn graphite-path-sarguru [event]
(let [service (:service event)]
     service )
 )


(def graph (graphite {:host "10.128.35.105" :path "graphite-path-sarguru"}))

(defn graphite-path-sarguru [event]
(let [service (:service event)]
     service )
 )


(def graph (graphite {:host "10.128.35.105" :path graphite-path-sarguru}))