 
 
 ;;; Quarantine operation
+
 (defmulti quarantine-subtype
           (fn [resource _] (:cloudServiceType resource)))
 

  (crud/set-standard-operations resource request))

(defmethod crud/set-operations resource-uri
  [{:keys [id resourceURI username connectorTemplate] :as resource} request]
  (let [href (str id "/describe")
        describe-op {:rel (:describe c/action-uri) :href href}]
    (cond-> (set-subtype-ops resource request)
            (get connectorTemplate :href) (update-in [:operations] conj describe-op))))


;; use name as the identifier
;;

(defmulti new-identifier-subtype
          (fn [resource _] (:cloudServiceType resource)))

(defmethod new-identifier-subtype :default
  [resource resource-name]
  (if-let [new-id (:instanceName resource)]
    (assoc resource :id (str (u/de-camelcase resource-name) "/" new-id))))


(defmethod crud/new-identifier resource-name
  [resource resource-name]
  (new-identifier-subtype resource resource-name))


;;; Activate operation

