   (fn reconcile
     [model action]
     (match action
-           ::clear-history
-           (-> model
-               (assoc-in [::debugger :signal-events] (list))
-               (assoc-in [::debugger :action-events] (list)))
-
            [::record-signal-event signal-event]
            (-> model
                (update-in [::debugger :signal-events] concat [signal-event])

           ::clear
           (-> model
               (assoc-in [::debugger :signal-events] nil)
               (assoc-in [::debugger :action-events] nil))

           ::toggle-visibility
           (update-in model [::debugger :visible?] not)


               ::on-reset
               (do
                 (dispatch-action ::clear)
                 (dispatch-action ::replay))

               ::on-toggle-visibility
