    :socket-timeout  5000}
 
    "}
-      ^Transport
-      create-http-transport
+  ^Transport create-http-transport
   ([]
     (create-http-transport nil))
-  ([config]
-    (if (-> config :api-key blank?)
+  ([{:keys [api-key connect-timeout socket-timeout]}]
+    (if (blank? api-key)
       (throw (IllegalArgumentException. "api-key must be setted")))
     (let [builder (HttpTransport$Builder.)]
-      (.withApiKey builder (:api-key config))
-      (let [^Integer connect-timeout (:connect-timeout config)]
-        (if (and (number? connect-timeout)
-                 (< 0 connect-timeout))
-          (.withConnectTimeout builder connect-timeout)))
-      (let [^Integer socket-timeout (:socket-timeout config)]
-        (if (and (number? socket-timeout)
-                 (< 0 socket-timeout))
-          (.withSocketTimeout builder socket-timeout)))
+      (.withApiKey builder api-key)
+      (if (and (number? connect-timeout)
+               (< 0 connect-timeout))
+        (.withConnectTimeout builder connect-timeout))
+      (if (and (number? socket-timeout)
+               (< 0 socket-timeout))
+        (.withSocketTimeout builder socket-timeout))
       (.build builder))))
 
 (defn ^MetricRegistry create-metric-registry []

  (if reporter
    (.stop reporter))
  reporter)

    registry))

(defn ^Metric register-metric
  ([{:keys [registry metric name]}]
    (if name
      (register-metric registry name metric)
      (register-metric registry metric)))
  ([^MetricRegistry registry ^Metric metric]
    (chain-register-metric registry metric)
    metric)
