Modifying the state backend-side about citrus HOT 1 OPEN

(defn reduce-reconciler
  [reconciler {:keys [controller-name event-name params]}]
  (let [resolver   (-> reconciler :resolvers controller-name)
        data       (if (fn? resolver) (resolver))
        controller (get controllers-map controller-name)
        result     (if controller
                     (controller event-name params data))]
    (if (contains? result :state)
      (citrus/reconciler {:state     (:state reconciler)
                          :resolvers (assoc (:resolvers reconciler) controller-name (constantly (:state result)))})
      reconciler)))