Commit ba3865e5 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[ERGO] open public folder to see freshly added node

parent 72378485
...@@ -289,11 +289,14 @@ performAction (ShareTeam username) p@{ reload: (_ /\ setReload) ...@@ -289,11 +289,14 @@ performAction (ShareTeam username) p@{ reload: (_ /\ setReload)
do do
void $ Share.shareReq session id $ Share.ShareTeamParams {username} void $ Share.shareReq session id $ Share.ShareTeamParams {username}
performAction (SharePublic {params}) p@{session} = performAction (SharePublic {params}) p@{ session
, openNodes: (_ /\ setOpenNodes)
} =
case params of case params of
Nothing -> performAction NoAction p Nothing -> performAction NoAction p
Just (SubTreeOut {in:inId,out}) -> do Just (SubTreeOut {in:inId,out}) -> do
void $ Share.shareReq session inId $ Share.SharePublicParams {node_id:out} void $ Share.shareReq session inId $ Share.SharePublicParams {node_id:out}
liftEffect $ setOpenNodes (Set.insert (mkNodeId session inId))
performAction RefreshTree p performAction RefreshTree p
------- -------
......
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