 ;; Fact replacement
 
 (defmethod process-command! [(command-names :replace-facts) 1]
-  [command config]
+  [{:keys [version] :as command} config]
+  (warn-deprecated version "replace facts")
   (-> command
       (assoc :version 2)
       (update-in [:payload] #(upon-error-throw-fatality (json/parse-string %)))


(defmethod process-command! [(command-names :store-report) 1]
  [{:keys [version] :as command} {:keys [db]}]
  (log/warn "command 'store report' version 1 is deprecated, use the latest version")
  (store-report* 1 db command))

(defmethod process-command! [(command-names :store-report) 2]
  [{:keys [version] :as command} {:keys [db] :as config}]
  (store-report* 2 db command))

(defmethod process-command! [(command-names :store-report) 3]


(defmethod process-command! [(command-names :replace-catalog) 2]
  [{:keys [version] :as  command} options]
  (warn-deprecated version "replace catalog")
  (replace-catalog* command options))

(defmethod process-command! [(command-names :replace-catalog) 3]
  [{:keys [version] :as  command} options]
  (warn-deprecated version "replace catalog")
  (replace-catalog* command options))

(defmethod process-command! [(command-names :replace-catalog) 4]
