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

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

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


(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 %)))]
