                                                 (float (:metric event))
                                                 (int (:time event))])
                                      "\n")]
-                     (prn "sending " client string)
-                     (send! client string)))))))
+                     (send-line client string)))))))

      (assoc this 
             :socket sock
             :out (OutputStreamWriter. (.getOutputStream sock)))))
  (send! [this line]
    (let [out (:out this)]
      (.write ^OutputStreamWriter out line)
      (.flush ^OutputStreamWriter out)))

               (fn [client]
                 (info "Closing connection to "
                       (select-keys opts [:host :port]))
                 (close client))
               {:size                 (:pool-size opts)
                :block-start          (:block-start opts)
