 
 ;; TODO - make this unnecessary
 (def content-type=json {"Content-Type" "application/json"})
+
+(def app-id {"X-App-ID" "FireCloud"})
 
 (defonce ^:private recent-ajax-calls (atom #{}))
 (def ^:private double-call-threshold 2000)

      (call (assoc arg-map
              :url (str url-root service-prefix path)
              :headers (merge (@get-bearer-token-header)
                              (:headers arg-map))
              :on-done (fn [{:keys [status-code status-text] :as m}]
                         (update-health status-code status-text)

  (let [on-done (:on-done arg-map)]
    (call (assoc arg-map
            :url (config/martha-url)
            :headers (merge app-id (:headers arg-map))
            :method "POST"
            :data data
            :on-done (fn [{:keys [status-code status-text] :as m}]
