Commit f67c0f92 authored by Justin Woo's avatar Justin Woo

reload tree when renaming nodes

parent 15801a80
...@@ -160,8 +160,10 @@ performAction session (NTree (LNode {id}) _) (_ /\ setReload) _ (_ /\ setAsyncTa ...@@ -160,8 +160,10 @@ performAction session (NTree (LNode {id}) _) (_ /\ setReload) _ (_ /\ setAsyncTa
liftEffect $ log2 "[performAction] SearchQuery task:" task liftEffect $ log2 "[performAction] SearchQuery task:" task
liftEffect $ setReload (_ + 1) liftEffect $ setReload (_ + 1)
performAction session (NTree (LNode {id}) _) _ _ _ (Submit name) = do performAction session (NTree (LNode {id}) _) (_ /\ setReload) _ _ (Submit name) = do
void $ renameNode session id $ RenameValue {name} void $ renameNode session id $ RenameValue {name}
liftEffect do
setReload (_ + 1)
performAction session (NTree (LNode {id}) _) (_ /\ setReload) (_ /\ setOpenNodes) _ (CreateSubmit name nodeType) = do performAction session (NTree (LNode {id}) _) (_ /\ setReload) (_ /\ setOpenNodes) _ (CreateSubmit name nodeType) = do
void $ createNode session id $ CreateValue {name, nodeType} void $ createNode session id $ CreateValue {name, nodeType}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment