 (def Schema
   {::debugger {:initial-model              {schema/Any schema/Any}
 
-               :signal-events              [(schema/pair schema/Int "id" schema/Any "signal")]
+               :signal-events              [{:id schema/Int :signal schema/Any}]
                :next-signal-id             schema/Int
 
                :action-events              [{:id        schema/Int

  (->> model
       ::debugger
       :signal-events
       (filter #(= (first %) id))
       first))

(defn -find-action

;;;;;;;;;;;;;;;;;;;;;;;; Reconcile
(defn -orphaned-signal?
  "Orphaned signal has no actions."
  [model signal]
  (empty? (filter #(= (:signal-id %) (:id signal))
                  (-> model ::debugger :action-events))))

(defn -wrap-reconcile
