Bug fix for undo.cljs
This commit is contained in:
parent
9452998e0b
commit
addc55658e
|
@ -227,24 +227,5 @@
|
||||||
(fn fsm-handler
|
(fn fsm-handler
|
||||||
[db event-v]
|
[db event-v]
|
||||||
(let [new-db (handler db event-v)]
|
(let [new-db (handler db event-v)]
|
||||||
(update-fn new-db event-v trigger fsm-path)))) ;; think about access to event-v
|
(update-fn new-db event-v trigger fsm-path))))) ;; think about access to event-v
|
||||||
|
|
||||||
|
|
||||||
(register-handler
|
|
||||||
:database-connection
|
|
||||||
(fsm-tirgger :db-working bootstrap-fsm [:fsms :bnootstrap] )
|
|
||||||
(fn [db q]
|
|
||||||
.....)
|
|
||||||
)
|
|
||||||
|
|
||||||
|
|
||||||
;; state
|
|
||||||
;; fms-state
|
|
||||||
;; seen-evetns
|
|
||||||
;; started-tasks
|
|
||||||
|
|
||||||
(defn bootstrap-fsm
|
|
||||||
[new-db event-v trigger fsm-path]
|
|
||||||
(let [new-state ]
|
|
||||||
)
|
|
||||||
)
|
|
||||||
|
|
Loading…
Reference in New Issue