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

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


  [store metric-type block]
  (when block
    (if (::recorder store)
      (data/wrap-content
        block
        (partial ->MeteredContentReader
                 store
