;; Market service — inter-service action endpoints

(defaction create-marketplace (&key container-type container-id name slug)
  "Create a new marketplace within a container."
  (let ((mp (service "market" "create-marketplace"
              :container-type container-type :container-id container-id
              :name name :slug slug)))
    mp))

(defaction soft-delete-marketplace (&key container-type container-id slug)
  "Soft-delete a marketplace by slug within a container."
  (let ((deleted (service "market" "soft-delete-marketplace"
                   :container-type container-type :container-id container-id
                   :slug slug)))
    {"deleted" deleted}))
