                               (name metric-type) label block-id
                               (format-bytes sum "B")
                               (format-bytes (/ sum elapsed) "Bps"))
-                  (record! store metric-type sum :block block-id)
+                  (record! store metric-type sum {:block block-id})
                   (vreset! meter [(System/nanoTime) 0]))))]
       (proxy [ProxyInputStream] [input-stream]
 

;; ## Latency Measurement

(defn- stopwatch
  "Creates a delay expression which will return the number of milliseconds
  elapsed between its creation and dereference."
  []
  (let [start (System/nanoTime)]

  "Helper function for the `measure-method` macro."
  [store method-kw args body-fn]
  (let [elapsed (stopwatch)]
    (cond-> (body-fn)
      (::recorder store)
      (d/finally
        (fn record-elapsed
          []
          (log/tracef "Method %s of %s block store on %s took %.1f ms"
                      (name method-kw)
                      (meter-label store)
                      args
                      @elapsed)
          (record! store ::method-time @elapsed
                   {:method method-kw
                    :args args}))))))
