(defn set-email-unknown
  [payload]
  (-> payload (assoc :id fallback-customer-identifier) (dissoc :schemeId)))

(defn set-id
  [x id]
  (-> x (assoc :id id) (dissoc :schemeId)))

(defn- maybe-set-unknown-email-endpoint [payload]
  (let [endpoint-path [:data :accountingCustomerParty :endpoint]
        send-to-path [:processingPreference :sendTo]]
    (if (= scheme-email (get-in payload (conj endpoint-path :schemeId)))
      (-> payload
          (update-in endpoint-path set-id fallback-customer-identifier)
          (update-in send-to-path set-id fallback-customer-identifier))
      payload)))

(def ^:private x)