   `:timeout`        HTTP timeout in milliseconds. (default: `5000`)"
   [opts]
   (let [write-url
-        (format "%s://%s:%s/write" (:scheme opts) (:host opts) (:port opts))
+        (format "%s://%s:%s/write?db=%s" (:scheme opts) (:host opts) (:port opts) (:db opts))
 
         payload-base
         (cond->

  "A set of event fields in Riemann with special handling logic."
  #{:host :service :time :metric :tags :ttl})


(defn event-tags
  "Generates a map of InfluxDB tags from a Riemann event. Any fields in the

        (when-not (empty? points)
          (->> points
               (assoc payload-base "points")
               (lineprotocol-encode-list)
               (assoc http-opts :Ω)
               (http/post write-url)))))))


