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

           :socket (DatagramSocket.)
           :host host
           :port port))
  (send! [this line]
    (let [bytes (.getBytes line)
          length (count line)
          addr (InetAddress/getByName (:host this))
          datagram (DatagramPacket. bytes length addr (:port this))]
      (.send (:socket this) datagram)))
  (close [this]
    (.close (:socket this))))


                        the pool. Default 0.1.

  :block-start          Wait for the pool's initial connections to open
                        before returning.

  :protocol             Protocol to use. Either :tcp (default) or :udp."
  [opts]
  (let [opts (merge {:host "127.0.0.1"
                     :port 2003
