                                          payload)))]
     (-> command
         (assoc :payload validated-payload)
-        (store-report* db))))
+        (store-report* start-time db))))
 
 ;; ## Command processors
 


(defn process-command!
  "Takes a command object and processes it to completion. Dispatch is
  based on the command's name and version information"
  [{command-name :command version :version delete? :delete? :as command} db]
  (when-not delete?
    (condp supported-command-version? [command-name version]
      "replace catalog" (replace-catalog command db)
      "replace facts" (replace-facts command db)
      "store report" (store-report command db)
      "deactivate node" (deactivate-node command db))))

(defn warn-deprecated
  "Logs a deprecation warning message for the given `command` and `version`"

            [schema.core :as s]
            [puppetlabs.puppetdb.config :as conf]
            [puppetlabs.puppetdb.time :refer [to-timestamp]]
            [clj-time.core :as time :refer [now interval in-millis]]
            [clj-time.format :as fmt-time]
            [clojure.set :as set]
            [clojure.core.async :as async]
