 
 (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"


                         blacklist-instance-chan
                         (let [{:keys [current-state' response-chan response]}
                               (handle-blacklist-request current-state service-id update-status-tag-fn 
                                                         update-state-by-blacklisting-instance-fn data)]
                           (async/put! response-chan response)
                           current-state')



(defn handle-kill-instance-request
  "Handles a kill request."
  [{:keys [id->instance instance-id->state] :as current-state} 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 %)))]
