 
 (defn handle-blacklist-request
   "Handle a request to blacklist an instance."
-  [{:keys [instance-id->request-id->use-reason-map instance-id->state] :as current-state} service-id 
+  [{:keys [instance-id->request-id->use-reason-map instance-id->state] :as current-state}
    update-status-tag-fn update-state-by-blacklisting-instance-fn [{:keys [instance-id blacklist-period-ms cid]} response-chan]]
   (cid/with-correlation-id cid
     (log/info "attempt to blacklist" instance-id "which has"


(defn handle-kill-instance-request
  "Handles a kill request."
  [{:keys [id->instance instance-id->state] :as current-state} service-id update-status-tag-fn 
   [{:keys [request-id] :as reason-map} resp-chan exclude-ids-set _]]
  (let [{instance-id :id :as instance-to-offer}
        (find-killable-instance id->instance instance-id->state #(not (contains? exclude-ids-set %)))]

  "Launches a go-block that sends a message to unblacklist-instance-chan to unblacklist instance-id after blacklist-period-ms have elapsed."
  [correlation-id instance-id blacklist-period-ms unblacklist-instance-chan]
  (async/go
    (try
      (async/<! (async/timeout blacklist-period-ms))
      (cid/cinfo correlation-id "requesting instance" instance-id "to be unblacklisted")
      (async/>! unblacklist-instance-chan {:instance-id instance-id})
      (catch Throwable th
        (log/error th "unexpected error inside trigger-unblacklist-process"
                   {:blacklist-period-ms blacklist-period-ms :cid correlation-id :instance-id instance-id})))))

(defn prepare-and-start-service-chan-responder
  "Starts the service channel responder."
